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I.  INTRODUCTION 


A.  MILITARY  PERSONNEL  TURNOVER 

Military  organizations  have  a  continuous  flow  of  personnel  coming  in  and  going  out. 
Regardless  of  the  fluctuating  manning  level,  responsibilities  must  be  kept  and  commitments 
must  be  fulfilled  by  these  organizations.  Before  leaving,  the  outgoing  personnel  do  what 
they  can  to  pass  along  to  those  they  leave  behind  the  knowledge  and  techniques  they  have 
discovered  along  the  way  .  Those  that  are  filling  the  shoes  of  the  experienced  must  often 
learn  quickly  and  frequently  while  enduring  the  pressures  from  superiors  to  produce 
immediate  results. 

Turnover  files,  job  description  notebooks,  and  even  one-on-one  pass-downs  cannot 
always  prepare  the  newly  assigned  personnel  for  the  decisions  they  must  make.  The  more 
complex  a  job  or  task  becomes,  the  harder  it  is  to  learn  competently  in  a  short  period  of 
time.  Without  the  benefit  of  experience  or  time  on  the  job  the  new  personnel  must  rely 
heavily  on  their  past  experiences  and  intelligence  to  solve  the  new  problems.  Many 
decisions  involve  very  complex  situations  with  multitudes  of  details  that  are  easily 
overlooked  or  forgotten  even  by  the  experienced  personnel.  With  the  advent  of  the  micro¬ 
computer,  assistance  need  not  go  with  the  transferred  personnel.  Programs  that  assist  in 
solving  problems,  that  do  not  t.ced  to  be  retaught  the  complexities  involved,  and  that  wrill 
not  forget  the  miniscule  details  that  are  so  easily  overlooked  during  the  rush  to  complete  a 
task  must  be  made  available. 

Developing  and  maintaining  the  schedule  of  activities  for  assets  is  one  example  area  in 
which  programs  need  to  be  developed.  The  emphasis  of  this  thesis  has  been  to  design  a 
system  to  be  u«f*d  on  a  microcomputer  by  the  training  officer  at  Patrol  Wing  Ten,  Moffett 
Field,  California  (CPW-10)  to  produce  a  yearly  schedule  of  the  at-home  inspections 
required  of  the  seven  squadrons  stationed  there. 


B  .  SELECTED  SCHEDULING  PROBLEM 

Scheduling  problems  have  qualities  that  are  generic  and  yet  there  invariably  are 
variables  and  exceptions  that  make  each  a  unique  problem.  This  prevents  a  generic  solution 
to  the  problems  of  scheduling.  Scheduling  the  training  of  the  seven  Moffett  squadrons 
involves  managing  not  only  the  squadrons,  but  also  the  inspection  teams.  Time  constraints 
are  added  externally  and  internally.  Operational  commitments  must  be  allowed  for. 
Inspection  team  availability  must  be  considered.  Qualification  time  limits  cannot  be 
exceeded. 

The  training  officer  is  computationally  overwhelmed  when  attempting  to  optimize  such 
a  schedule.  There  are  simply  too  many  possibilities  for  any  one  person  to  consider  them 
all.  Even  microcomputers  become  over-taxed  with  the  combinatorial  problem  that  arises 
when  attempting  to  find  the  best  way  to  schedule  six  different  activities  for  seven  different 
squadrons  over  a  twelve-month  period. 

In  order  to  solve  the  combinatorial  problems,  this  thesis  has  approached  scheduling  in 
a  hierarchical  manner.  Heuristics  are  used  to  select  the  month  that  each  inspection  should 
ideally  take  place.  Conflicts  that  occur  between  inspections  with  the  same  ideal  month  are 
resolved  by  finding  a  new  month  to  hold  one  of  the  inspections  within  a  three  month 
window  cither  side  of  its  ideal  month.  Once  a  month  is  selected  for  all  of  the  inspections 
that  are  to  be  scheduled,  the  optimum  trialperiod  for  each  event  within  its  particular  month 
can  be  found.  The  original  combinatorial  problem  is  thus  greatly  reduced,  allowing  the 
re 'era?!  schf*d"im<T  process  to  Iv*  done  auicker  and  using  less  space. 

C.  DESCRIPTION  OF  REMAINING  CHAPTERS 

Background  information  on  general  scheduling  algorithms  is  discussed  in  chapter  II. 
In  chapter  III  the  details  cf  the  scheduling  problem  selected  for  this  thesis  are  amplified. 
The  rules  used  by  the  Training  Officer  to  manually  compute  the  yearly  schedule  will  be 
explained.  The  algorithms  used  in  the  past  to  solve  the  CPW-10  training  schedule  problem 
are  also  outlined  in  chapter  III  along  with  the  approach  taken  by  LCDR  David  Hutson  to 
computerize  this  scheduling. 


The  approach  this  thesis  undertook  to  solve  the  CPW-10  training  schedule  problem  is 
explained  in  chapter  IV.  A  comparison  of  the  improvements  it  made  over  previous 
techniques  and  the  details  of  the  M-Prolog  code  that  was  developed  in  this  thesis  are 
examined  in  chapter  IV.  The  results  achieved  during  this  thesis  are  covered  in  chapter  V. 
Recommendations  and  a  summary  of  this  thesis  can  be  found  in  chapter  VI. 

Appendix  A  holds  the  actual  source  code  for  this  program.  Appendix  B  contains  a 
sample  data  file.  An  example  of  the  file  containing  a  final  schedule  produced  is  found  in 
Appendix  C. 


II.  BACKGROUND 


A.  SCHEDULING 

Scheduling  is  something  people  do  to  organize  the  way  they  intend  to  use  the 
resources  at  their  disposal  to  achieve  their  goals.  More  specifically,  it  is  the  ordering  of  the 
steps  necessary  to  achieve  goals,  considering  the  start  and/or  finish  times  of  the  steps.  The 
similarities  of  these  two  terms  causes  them  to  commonly  be  used  synonymously.  In  many 
situations  if  a  person  determines  the  sequence  of  events  the  schedule  will  automatically  fall 
into  place.  This  occurs  in  situations  where  the  events  begin  at  a  particular  spot  during  the 
period  selected  for  it,  such  as  the  earliest  time  or  the  latest  time  possible.  However, 
sequencing  does  not  take  into  account  the  idle  time  between  events  and  scheduling 
does. [Ref.  1,  p.9] 

Though  scheduling  has  been  practiced  for  centuries,  it  was  not  formalized  until  the 
early  1900's.  The  Gnatt  chart,  developed  by  Henry  L.  Gnatt,  used  in  production 
scheduling  during  World  War  I  became  a  standard  tool  for  schedulers. [Ref.  2]  This 
technique  s  simplicity'  and  graphical  appeal  are  the  reasons  it  is  still  commonly  used  today. 

During  the  late  1950  s  with  the  advent  of  the  electronic  computer,  new  scheduling 
techniques  emerged.  Two  significant  network-based  models  that  were  developed  during 
that  period  were  the  Critical  Path  Method  (CPM)  and  the  Performance  Evaluation  and 
Review  Technique  (PERT)  [Ref.  2).  These  two  methods  fall  in  the  category  of  project 
scheduling,  planning  of  activities  that  must  be  given  a  precedence  with  or  without  resource 
constraints.  PERT  in  general  finds  the  schedule  that  sets  the  start  and  finish  times  resulting 
in  the  minimum  project  time.  CPM  finds  a  schedule  having  the  lowest  cost  during  a 
specified  ume.  Both  of  these  methods  used  techniques  based  on  the  solutions  of  theoretical 
problems  such  as  the  shortest-route  problem,  the  critical  path  problem,  or  the  flow 
problem  on  a  network.  [Ref.  3.  pp.  48-50) 


B  .  AI  TECHNIQUES 

A  scheduling  problem  that  is  solved  using  CPM  can  be  translated  into  a  heuristic 
search.  Accomplishing  a  task  or  a  machine  completing  its  work  becomes  a  transition  from 
one  state  to  another.  A  state  is  a  group  of  events  that  have  been  scheduled.  Each  state  will 
have  costs  associated  with  the  arrangement  of  the  events  within  it.  For  very  simple 
problems  every  possible  combination  of  transitions  can  be  determined,  to  yield  all  the 
schedules  possible,  and  to  then  select  the  one  with  the  least  cost  as  the  solution. 

But  in  most  "real-world"  scheduling,  the  size  of  the  combinatorial  problem  is  too  large 
to  be  accomplished  in  a  reasonable  amount  of  time.  Artificial-intelligence  search  techniques 
such  as  A*,  hill-climbing,  and  simulated  annealing  have  been  used  to  solve  scheduling 
problems.  These  methods  use  heuristics  to  guide  the  search  to  an  optimum  solution  and 
avoid  the  combinatorial  problem. 

The  A*  search  technique  uses  an  agenda  of  states  from  which  it  repeatedly  chooses  the 
one  with  the  best  evaluation  and  total  cost  sum  to  work  with.  It  then  finds  all  the  possible 
new  states,  or  successors,  which  can  be  reached  burn  the  selected  best-state  using  a  single 
transition.  Each  of  these  successors,  together  with  their  evaluation  and  total  cost,  is  added 
to  the  agenda.  This  process  repeats  until  a  state  selected  from  the  agenda  is  the  goal. 

The  agenda  maintained  in  the  A*  search  can  grow  very  large,  consuming  considerable 
amounts  of  computer  memory.  For  this  reason  the  no-path  search  is  sometimes  a  preferred 
search  algorithm.  This  method  is  a  modification  to  the  A*  search,  developed  by  Prof. 
Rowe  [Ref.  4).  This  algorithm  vanes  from  the  A*  by  not  storing  state  sequences  used  to 
reach  agenda  states,  and  pruning  the  agenda  after  each  cycle.  A  ”k-factor"  can  be  set  to 
determine  how  much  of  the  agenda  will  be  pruned.  Only  items  whose  evaluations  are  a  k 
less  than  the  best-state's  evaluation  are  maintained  on  the  agenda.  This  can  sometimes 
prevent  finding  the  absolute  optimum  path,  but  a  large  agenda  can  be  prevented. 

The  hill-climbing  search  is  a  depth-first  search  that  uses  an  evaluation  function.  With 
this  search  no  agenda  at  all  is  maintained.  This  method  does  not  allow  backtracking  to  try 
alternate  routes  and  will  only  work  in  situations  for  which  the  goal  is  guaranteed  reachable 
from  any  of  the  possible  routes  selected. 


Simulated  annealing  is  like  hill -climbing  but  uses  stochastic  processes  to  help  choose 
from  the  agenda.  In  a  scheduling  situation  the  process  starts  with  an  initial  schedule. 
Events  are  then  randomly  repositioned.  The  result  is  evaluated  after  each  repositioning. 
The  process  continues  until  the  resulting  schedule  cost  reaches  an  asymptote.  This  method 
does  not  guarantee  the  absolute  optimized  schedule  but  has  been  found  effective  finding 
improved  schedules  and  can  minimize  the  combinatorial  problem.  [Ref.  5,6]. 
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III.  APPLICATION  DESCRIPTION 

Of  the  information  used  in  developing  this  program  not  taken  from  [Ref.  7],  most  was 
gathered  during  interviews  with  the  officers  in  the  CPW-10  Training  Department  [Ref. 
8,9,10],  The  author  was  also  able  to  draw  on  his  own  experience  gained  during  prior 
operational  tours  at  both  the  squadron  and  wing  levels. 

A.  SQUADRON  CYCLE 

The  CPW-10  Training  Officer  is  responsible  for  the  training  of  the  seven  Patrol 
Squadrons  permanently  stationed  at  Naval  Air  Station  Moffett  Field,  California.  Of  the 
seven  squadrons,  two  are  on  operational  deployments  any  given  time.  The  emphasis  of  the 
training  schedule  is  to  prepare  the  at-home  squadrons  to  be  ready  for  deployment.  The 
normal  cycle  for  the  squadrons  is  twelve  months  at-home  and  six  months  on  deployments. 
This  can  be  changed  at  any  time  but  is  a  general  rule. 

During  the  at-home  period  the  squadrons  are  given  a  thirty  day  period  immediately 
following  the  return  from  deployment  called  the  Post-deployment  Safety  Stand-down 
period.  This  period  is  given  to  the  squadron  to  basically  regroup  after  the  stresses  brought 
upon  by  operational  deployments.  The  training  officer  avoids  scheduling  any  events  for  a 
squadron  during  its  Safety  Stand-down  period. 

Ready-alert  periods  are  another  time  interval  in  which  the  training  officer  avoids 
scheduling  any  events  for  the  squadrons.  The  ready-alert  periods  are  very  similar  to  a 
deployment  period.  The  major  difference  is  that  the  squadron  remains  at-home.  The 
ready-alert  periods  are  also  normally  only  a  month  in  duration.  On  some  occasions  it  is 
necessary  to  extend  a  ready-alert  period  to  one  and  a  half  months.  During  a  ready-alert 
period  a  squadron  must  be  prepared  to  assume  any  operational  tasking  that  might  arise. 
Operational  tasking  would  take  priority  over  and  would  prevent  the  completion  of  any 
inspection.  The  possibility  of  conflicts  with  operational  commitments  makes  the  readv- 
alert  periods  undesirable  for  scheduling  of  other  activities 

Another  at-home  period  that  is  maintained  free  from  training  or  operational  tasking  is 
the  forty-five-day  period  immediately  preceding  the  date  a  squadron  commences  a 
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deployment  This  period  is  normally  left  open  to  provide  the  squadron  with  a  relative  quiet 
period  for  leave  and  to  make  the  final  preparations  for  moving  to  the  deployment  site.  This 
also  allows  for  an  extra  period  in  case  a  squadron  must  make  up  any  of  the  training 
evolutions  that  must  be  accomplished  prior  to  deployment. 

B.  TRAINING  EVENT  DESCRIPTION 

There  are  seven  primary  inspections  a  squadron  must  pass  prior  to  a  deployment.  The 
training  officer  is  responsible  for  scheduling  these  inspections  for  the  squadrons  assigned 
to  his  wing1.  For  some  of  the  inspections,  the  order  in  which  they  occur  relative  to  other 
inspections  is  important,  while  others  may  be  held  anytime.  The  seven  inspections  are: 

1 .  NTPI 

The  Nuclear  Training  Proficiency  Inspection  (NTPI)  is  conducted  by  a  team  of 
inspectors  from  Commander  Nuclear  Weapons  Training  Group  Pacific,  San  Diego, 
California.  It  is  a  records  and  procedure  inspection  requiring  two  uninterrupted  working 
days. 

2.  Pre-NTPI 

The  Nuclear  Training  Proficiency  Pre-Inspection  (Pre-NTPI)  is  conducted  by 
personnel  from  within  CPW-10.  Its  purpose  is  to  ensure  the  squadron  is  ready  for  the 
NTPI  and  must  be  conducted  prior  to  it. 

3.  CTPI 

The  Conventional  Weapons  Technical  Proficiency  Inspection  (CTPI)  is 
conducted  by  a  team  from  Commander  Patrol  Wings  Pacific,  Moffett  Field,  California 
(CPWP).  In  the  past  this  was  scheduled  approximately  three  weeks  prior  to  the  MRCI. 
Due  to  a  recent  change  in  policy  at  CPWP,  the  CTPI  is  given  with  relatively  short  notice. 
This  prevents  scheduling  this  inspection  along  with  the  other  inspections. 


!There  are  four  active-duty  L’.S.  Navy  land-based  patrol  air  wings.  Each  have  five  to 
seven  active  duty  fixed-wing  patrol  (VP)  squadrons  subordinate  to  them. 


4.  MRCI 

The  Mining  Readiness  Certification  Inspection  (MRCI)  is  conducted  by  an 
inspection  team  from  the  Commanding  Officer,  Mine  Warfare  Inspection  Group, 
Charleston,  South  Carolina.  This  is  a  four-working-day-inspection. 

5 .  Pre-MRCI 

The  Mining  Readiness  Certification  Pre-Inspection  (Pre-MRCI)  was  normally 
accomplished  during  the  same  period  as  the  CTPI.  It  now  takes  place  approximately  three 
weeks  prior  to  the  MRCI.  The  purpose  of  this  inspection  is  to  ensure  the  squadron  is 
adequately  prepared  for  the  MRCI.  Like  the  Pre-NTPI  it  is  conducted  by  CPW-10 
personnel. 

6.  Cl 

The  Command  Inspection  (Cl)  is  an  administrative  inspection  that  is  performed 
as  the  final  test  that  the  squadron  is  ready  to  go  on  deployment.  This  is  a  one-day 
inspection  performed  by  CPW-10  personnel  as  close  to  and  not  less  than  45  days  prior  to 
the  deployment  start  date  as  possible. 

7.  NATOPS  Inspection 

The  Naval  Air  Training  and  Operating  Procedures  Standardization  (NATOPS) 
inspection  is  an  aircrew  proficiency  examination  that  ensures  the  squadron's  aircrew 
personnel  are  knowledgeable  of  the  correct  procedures  to  operate  the  aircraft  safely.  This 
inspection  involves  wTitten  exams  for  all  the  aircrew  positions  in  the  P-3  Orion  aircraft,  as 
well  as  flight  examinations  given  to  three  of  the  flight  crews.  Ten  working  days  are  allowed 
on  the  schedule  to  ensure  adequate  time  to  accomplish  all  the  evolutions  required  for  this 
inspection. 

C.  THE  PROBLEM 

Traditional  scheduling  problems  have  dealt  primarily  with  activities  that  are  consumers 
of  a  given  amount  of  time.  The  problem  has  been  to  optimize  the  order  or  placement  of  the 
time  activities  to  maximize  the  efficiency  of  the  total  allocated  time.  Or  in  other  words,  find 
the  sequence  of  events  such  that  there  is  the  least  amount  of  wasted  time  and  the  overall 
output  is  at  a  maximum. 
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The  problem  faced  by  the  CPW-10  Training  Officer  is  different  in  that  he  is  not 
concerned  with  minimizing  the  time  between  events.  Actually  his  intention  is  to  optimize 
the  gap  between  events  such  that  there  is  not  too  much  or  too  little  time  between  events. 

An  additional  subtlety  is  that  conflict  arises  because  the  scheduler  must  not  only  take 
into  consideration  the  gaps  between  events  for  a  specific  squadron,  but  must  also  consider 
the  interval  at  which  the  inspection  team  is  being  scheduled. 

D.  PRIOR  APPROACHES 

The  manual  algorithm  for  arriving  at  the  CPW-10  training  schedule  has  been 
developed  over  the  years  and  is  informally  maintained  by  the  training  officers  in  what  is 
referred  to  as  the  Training  Officer's  turnover  notebook.  The  following  algorithm  is  what 
has  been  used  in  the  past  and  is  currently  being  used  by  the  training  officer  at  CPW-10  to 
manually  develop  the  yearly  training  plan  [Ref.  7]. 

1 .  Fill  in  the  deployment  periods  for  each  squadron.  A  deployment  begins 

and  ends  on  the  tenth  of  a  month. 

2.  Compute  the  latest  date  each  inspection  can  take  place  in  accordance  with 

the  periodicity  requirements.  Mark  these  on  the  schedule  draft. 

3 .  For  each  squadron,  annotate  the  draft  with  the  following  periods: 

a.  Its  ORE  vulnerability  period. 

b.  Its  time  between  45  days  prior  to  its  deployment  and  the  deployment. 

c.  Its  post-deployment  safety  stand-down. 

4.  Assign  the  ready-alerts. 

a.  The  ready-alert  periods  do  not  overlap.  They  begin  on  either  the  first 
or  the  sixteenth  of  a  month,  depending  upon  whether  they  are  to  be  a 
30-day  or  45-day  period.  30-day  periods  are  the  ideal. 

b.  Determine  which  squadron  has  the  ready-alert  the  last  month  of  the 
current  planning  year.  This  is  the  starting  point  for  future  ready- 
alerts. 

c.  When  selecting  a  ready-alert  do  not  consider  any  squadron  that: 

(1)  Held  the  ready-alert  the  month  prior  to  the  month  being 
scheduled. 

(2)  Is  on  deployment. 

(3)  Is  in  its  post-deployment  safety  stand-down. 

(4)  Is  in  the  ORE  vulnerability  period. 

(5)  Is  in  the  period  45  days  prior  to  the  deployment. 
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d.  If  more  than  one  squadron  remains  from  part  c,  select  one  that  has 
not  yet  been  scheduled  for  a  ready-alert  during  its  current  at-home 
period. 

e.  If  no  squadron  is  available  for  part  d,  temporarily  skip  to  the  next 
month  and  select  a  squadron  in  accordance  with  parts  c  and  d.  Then 
split  the  skipped  month  between  the  previous  ready-alert  and  the 
selected  ready-alert  squadron.  This  will  assign  the  ready-alert  to  two 
squadrons  over  a  three-month  period. 

f .  Consider  the  following  as  the  preferred  order  to  select  from  available 
squadrons: 

(1)  Those  in  third  month  or  later  following  post-deployment  safety 
stand-down. 

(2)  Those  in  second  full  month  or  later  after  the  post-deployment 
safety  su  nd-down. 

(3)  Those  in  first  month  of  ORE  vulnerability  period. 

g.  Continue  steps  c  through  f  until  every  month  has  some  squadron 
assigned  to  a  ready-alert 

5 .  Schedule  the  NTPI  for  each  squadron  (as  required): 

a.  The  date  must  be  after  the  safety  stand-down  and  not  during  any  read 
alert. 

b .  Prefer  the  latest  date  possible. 

c.  There  must  be  prior  time  for  the  pre-NTPI. 

d.  Ensure  that  no  major  holiday  interrupts  the  pre-NTPI  /NTPI  block. 

6.  Schedule  each  pre-NTPI.  The  date  must  fall  after  the  safety  stand-down. 

7.  Using  the  due  dates  marked  on  the  draft,  schedule  the  rest  of  the  activities. 
None  should  be  during  a  ready-alert  and  all  should  be  after  the  post¬ 
deployment  safety  stand-down. 

a.  The  NATOPS  evaluation  should  be  as  early  as  practical. 

b.  The  pre-MRCI  should  be  as  early  in  the  ORE  vulnerability  period  as 
practical. 

c.  The  MRCI  should  be  no  earlier  than  two  weeks  after  the  pre-MRCI, 
with  same  restriction  as  the  pre-NTPI/NTPI. 

d.  The  Cl  should  be  on  the  last  working  day  of  the  ORE  vulnerability 
period. 

8.  Make  necessary  adjustments  to  optimize  the  overall  schedule  and  the 
resources  with  which  it  is  built. 


The  final  step  leaves  a  great  deal  of  work  for  the  training  officer  to  accomplish.  To 
optimize  the  schedule  requires  making  judgements  on  issues  that  are  not  always  clearly 


objective.  It  is  also  requires  juggling  the  events  in  the  schedule  to  make  all  the  events  fit. 
This  leaves  room  for  mistakes  and,  without  a  clear  idea  of  which  is  more  optimal  of  two 
given  situations,  can  lead  to  inconsistencies  in  the  final  schedule.  It  is  at  this  stage  that  the 
experienced  scheduler  will  have  a  distinct  advantage  over  a  newly-assigned  individual. 

In  LCDR  Hutson's  prototype  three  separate  searches  are  used  to  complete  the 
schedule.  The  first  search  schedules  the  ready-alerts.  The  second  search  schedules  the 
events  that  do  not  occur  during  the  ORE  vulnerability  period.  The  third  search  schedules 
the  events  that  are  during  the  ORE  vulnerability  period.  With  the  correct  k-factor  for  the 
final  two  searches,  this  prototype  will  arrive  at  a  much  improved  schedule  compared  to  the 
manually  derived  schedule.  Finding  the  right  k-factor,  however,  is  a  matter  of  trial  and 
error,  and  the  program  can  then  take  several  days  to  run.  It  was  also  discovered  that  when 
converted  to  M-Prolog,  Hutson's  program  required  too  much  space  to  run  on  the  computer 
used  for  this  thesis.  [Ref.  7] 


IV.  PROGRAM  DESCRIPTION 

A.  PROGRAM  PERIPHERALS 

The  program  written  as  part  of  this  thesis  was  done  on  an  131  Optimum  V 
Workstation1  running  the  UNIX2  operating  system.  The  language  used  is  M-Prolog 
because  there  are  both  interpreted  and  compiled  versions  to  run  on  both  the  ISIs  and  IBM- 
PC3  compatible  machines  such  as  the  Zenith-2484  now  common  to  most  military 
commands.  The  ISI  workstation  has  the  Motorola  68020,  16.67Mhz-chip  as  its  processor. 

B  .  OVERVIEW  OF  THE  NEW  APPROACH 

In  this  thesis  the  scheduling  problem  was  broken  down  into  three  separate  stages  with 
the  intention  of  greatly  improving  on  the  time  required  by  LCDR  Hutson's  prototype  to 
produce  a  final  schedule.  In  the  first  stage  the  initial  database  required  to  build  the  schedule 
is  established.  The  second  stage  divides  the  year  that  is  to  be  scheduled  into  months  and 
determines  which  month  is  best  for  each  event  to  occur  in.  The  third  and  final  stage  then 
optimizes  the  schedule  by  determining  the  best  days  for  each  event. 

1  .  New  Algorithm 

The  new  algorithm  used  in  this  thesis's  program  is  broken  into  three  stages. 
During  each  stage  a  search  is  conducted. 

a.  Stage  I  algorithm 

(1)  Read  the  datafile  DATABASE.pro  and  assert  its  contents  as 
facts  in  the  program's  database.  The  following  facts  may  or 
may  not  be  contained  in  the  datafile: 

(a)  Start  and  finish  dates  for  the  schedule 


'"Optimum  V  Workstation"  is  a  registered  trademark  of  Integrated  Solutions 
Incorporate. 

2"UNIX"  is  a  registered  trademark  of  ATT. 

3"IBM-PC"  is  a  registered  trademark  of  the  International  Business  Machines 
Corporation  of  Armonk,  N.Y.,  U.S.A. 

4"Zeniih-248"  is  a  registered  trademark  of  Zenith  Corporation. 
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(b)  Prior-event  dates 

(c)  Deployment  dates 

(d)  Earmark  (or  Drop-Dead)  dates 

(e)  Ready-alert  schedule 

(2)  If  the  start-date,  finish-date,  prior-event-dates  or  deployment 
data  were  not  read  in  from  the  datafile,  then  query  the  user  to 
get  the  information. 

(3)  If  the  earmark  dates  were  not  read  in,  either  query  the  user  or 
compute  them.  Use  the  prior-event  dates  to  compute  the 
earmark  dates  based  on  the  known  qualification  durations1. 
The  durations  are  listed  in  Figure  4. 1  [Ref.  8], 


|  Event  Name 

Qualification  Duration 

Cl 

12  months 

NATOPS 

12  months 

NTPI 

12  months 

MRCI 

18  months 

Figure  4.1  Event  Qualification  Lengths 


(4)  If  the  ready-alert  dates  were  not  read-in,  either  have  the  user 
input  them  or  use  a  nopath  search  to  determine  the  optimum 
arrangement  for  them.  The  program  used  in  LCDR  Hutson's 
prototype  was  used  here,  modified  by  adding  successor  rules  to 
permit  scheduling  up  to  three  ready  alerts  per  squadron,  instead 
of  only  two.  [Ref.  7]. 

(5)  At  the  completion  of  Stage  I  the  program  database  contains  all 
the  facts  mention  in  part  (1)  above. 

b  .  Stage  II  algorithm 

(1)  Generate  the  first_pick_months  for  each  event  required  to 
occur  during  the  schedule-year,  using  the  table  shown  in  Figure 
4.2. 


’A  qualification  duration  begins  when  a  squadron  successfully  completes  the 
inspection  for  the  qualification.  The  squadron  is  required  to  successfully  complete  the 
inspection  again  prior  to  the  end  of  the  qualification  duration. 
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Best  Month  for  Initial  Schedule1 

pre-NTPI 

1  month  prior  to  NTPI 

NTPI 

0  months  prior  to  Earmark  date 

Pre-MRCI 

MR  Cl 

Cl 

NATOPS 

Figure  4.2  Event  Optimal  Month  Computation 

(2)  Using  a  nopath  search,  determine  the  actual  months  by 
repeatedly  choosing  the  best  schedule  and  resolving  a  conflict 
within  that  schedule.  Resolve  a  conflict  by  selecting  an  event 
which  has  a  conflict  and  change  its  month  to  vary  from  its 
first_pick_mor.th  by  moving  it  (in  order  of  preference):  (1) 
one  month  prior,  (2)  one  month  later,  (3)  two  months  prior,  (4) 
nvo  months  later,  (5)  three  months  prior,  (6)  three  months  later. 
The  new  placement  cannot  conflict  with  anything  else  in  the 
schedule.  If  the  selected  event  cannot  be  rescheduled  without  a 
conflict,  then  select  the  next  event  with  a  conflict  and  resolve  its 
conflict.  Continue  until  a  schedule  results  having  no  conflicts 
or  a  minimum  number  of  conflicts.  The  schedules  are  evaluated 
by  summing  the  number  of  conflicts  it  contains  and  the  total  of 
its  costs  as  determined  using  the  table  shown  in  Figure  4.4. 
The  best  schedule  is  the  one  having  the  lowest  evaluation. 

(3)  The  result  of  Stage  II  is  a  month-schedule  for  the  period  to  be 
scheduled. 

c  .  Stage  III  algorithm 

(1)  Taking  the  events  of  the  Stage  II  schedule  in  chronological 
order,  without  back  tracking,  find  the  trialperiod  (sequence  of 
days)  for  each  event  during  its  month  that  results  in  a  day- 
schedule  with  the  least  total  cost  (a  hill-climbing  search). 


’The  best  month  for  the  initial  schedule  was  determined  by  studying  the  actual 
schedules  used  during  fiscal  years  1986  and  1989. 
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C.  MODULE  DESCRIPTION 

The  program  was  written  using  the  ten  modules  shown  in  Figure  4.3.  Each  of  the  ten 
modules  is  pretranslated  (a  form  of  compilation)  into  separate  binary  Files  which  are  then 
consolidated  into  a  single  binary  file  that  can  be  run  using  the  M-Prolog  interpreter.  To  run 
the  program  in  the  compiled  mode,  each  module  is  compiled  separately  and  then 
consolidated  into  a  single  compiled  file  that  can  be  run. 


Figure  4.3  Program  Module  Block  Diagram 


1.  Vpscheduler  module 

The  vpscheduler  module  contains  the  top  level  predicate  go  which  is  used  to  call 
all  the  other  routines  in  the  program.  Within  this  module  are  routines  written  by  LCDR 
Hutson  for  computing  and  displaying  the  individual  process  times  as  the  program  runs.  It 
calls  the  routines  to  initialize  the  database,  conduct  the  Stage  II  search,  do  the  final  search, 
and  print  the  schedule  to  a  file. 

2.  Vpinterface  module 

This  module  contains  the  routines  necessary  to  initialize  the  program  database. 
The  initialization  procedure  begins  by  asking  the  user  if  the  database  file  has  been  updated. 
If  the  database  file  has  not  been  updated,  the  user  is  queried  for  the  information  necessary 
to  build  it. 

The  database  file,  DATABASE.pro,  is  a  text  file.  Each  line  in  the  file  can  easily 
be  read  from  the  file  and  asserted  as  a  fact  in  the  program  database.  A  sample  datafile  is 
shown  in  Appendix  B.  Most  of  the  information  in  this  file  is  stored  in  the  date  format1  to 
make  reading  and  changing  the  datafile  simpler.  An  exception  to  this  is  the  trialperiod2 
information  which  uses  the  daynumber  format. 

If  the  datafile  does  not  contain  all  the  information  required  to  start  Stage  II,  the 
interface  module  will  build  the  datafile.  Some  of  the  information  must  be  input  by  the  user, 
and  some  of  it  can  be  computed.  The  yearbegindates,  and  yearenddates,  priorevent- 
dates,  and  deployment  data  (prerequisite  facts)  must  all  be  contained  in  the  datafile  or  the 
user  will  be  queried  for  the  information  and  the  interface  module  will  write  it  into  the 
datafile. 

Following  this,  all  the  information  contained  in  the  datafile  is  asserted  into  the 
program  database  as  facts.  If  the  datafile  did  not  contain  earmark  facts,  then  these  will  be 
computed  using  the  prior  event  dates.  The  program  does  not  take  into  account  that  some 


!The  date  format  is  a  Prolog  list  containing  the  day,  the  common  three-letter 
abbreviation  for  *he  month  (using  lower-case  letters  only),  and  the  year.  Example:  5 
February  1989  in  the  date  format  is  [5,feb,1989]. 

2  A  trialperiod  is  the  sequence  of  days  during  which  an  event  may  occur.  A  trialperiod 
is  defined  by  its  start  daynumber  through  its  finish  daynumber. 
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squadrons  may  have  been  given  extensions  on  some  of  the  inspections,  delaying  the  actual 
earmark  date;  then  the  user  should  put  the  correct  earmark  dates  in  the  datafile. 

3.  Vpreadysearch  module 

This  module  is  used  when  the  user  wants  the  computer  to  determine  the  ready- 
alert  schedule.  This  is  a  M-Prolog  version  of  the  ready-alert  search  done  by  LCDR 
Hutson,  enhanced  to  schedule  up  to  three  ready-alerts  periods  per  squadron.  Routines  have 
also  been  added  to  convert  the  readyevents  that  contain  daynumbers1  as  start  and  finish 
dates  into  ready_month  facts  that  contain  the  month  numbers  as  the  start  and  fmish  dates, 
which  are  used  in  the  Stage  II  search. 

4  .  Vpgenerator  module 

The  vpgenerator  module  is  called  to  compute  the  trialperiods  if  the  datafile 
does  not  contain  them.  The  final  step  in  initializing  the  database  is  to  obtain  the  ready-alert 
schedule.  If  the  datafile  does  not  contain  ready-alert  facts,  the  user  has  the  option  of 
entering  the  ready-alert  events  or  having  the  program  compute  them  using  the 
vpreadysearch  module.This  is  an  M-Prolog  version  of  the  generator  module  written  by 
LCDR  Hutson  [Ref.  7J.  It  produces  the  trialperiods  available  during  a  given  year  fo;  each 
of  the  different  inspections. 

5  .  Vpmonthsearch  module 

Within  this  module  the  Stage  II  search  is  conducted.  The  module  begins  by 
finding  the  first_pick_months2  for  each  event  that  should  be  scheduled  during  the  year. 
These  assignments  form  the  initial  schedule  which  is  passed  to  a  nopath  search  (see  section 
II. Bi  which  finds  the  schedule  with  the  least  number  of  conflicts.  The  total  cost  of  a 
schedule  depends  on  the  number  of  conflicts  it  contains  and  the  the  amount  you  must  move 
events  from  their  first_pick_month  in  order  to  deconflict  it  with  other  events.  The  table  in 
Figure  4.4  shows  the  cost  of  moving  an  event  out  of  its  first_pick_month. 


'The  daynumber  is  the  integer  representation  of  a  date,  equal  to  the  number  of  days 
that  have  occurred  between  1  January  1600  and  the  date  being  represented. 

2For  each  inspection  and  squadron  a  first_pick^month  can  be  calculated  by  using  the 
table  shown  in  Figure  4.2 


(First  pick  month  -  Event  month) 

0 


Figure  4.4  Cost  to  Deviate  from  the  First_pick_month 

6.  Vpfirstpick  module 

This  module  is  called  by  the  vpmonthsearch  module  to  determine  which 
events  need  to  be  scheduled  during  the  given  year  and  which  month  is  the  preferred  or 
first_pick_month  for  those  events.  The  first_pick_months  are  computed  using  the 
information  in  Figure  4.2. 

7.  Vpfinalsearch  module 

The  final  schedule  is  generated  in  this  module  using  the  ready-alert  schedule 
from  Stage  T  and  the  month  schedule  from  Stage  U.  The  ready-alert  schedule  is  input  as  the 
starting  state  of  a  modified  hill-climbing  search.  The  search  always  selects  the 
chronologically  earliest  unscheduled  event  from  the  month  schedule.  The  trialperiods  are 
sequentially  tried  as  possibilities  for  that  selected  event.  For  each,  the  cost  of  the  schedule 
including  this  new  event  is  computed.  The  cost  is  then  compared  with  the  prior  cost 
computed  for  a  schedule  with  the  same  event  using  the  last  (an  earlier)  trialperiod.  If  the 
new  cost  is  less  than  the  pnor  cost,  then  the  new  schedule  is  added  to  the  agenda  and  the 
subsequent  trialperiod  is  check  for  the  same  event. 

The  process  for  selecting  tne  trialperiod  for  a  particular  event  is  concluded  when 
there  are  no  more  trialperiods  to  test  or  the  new  cost  is  greater  than  the  previous  cost.  The 
latter  condition  is  due  to  the  convexity  of  the  cost  function  (see  section  E).  This  implies  a 
modified  hill-climbing  search  significantly  reduces  the  search  time.  The  final  schedule  is 


complete  when  there  are  no  events  on  the  month  schedule  that  have  not  been  added  to  the 
final  schedule. 

8.  Vputilities  module 

This  module  contains  numerous  miscellaneous  predicates  used  for  list 
manipulation.  Most  of  this  module  was  provided  by  Prof.  Rowe  [Ref.  4], 

9.  Vpsched writer  modu'e 

This  module  contains  the  routines  used  to  print  a  list  of  events  in  columnar  form. 
It  converts  the  daynumbers  or  monthnumbers  into  common  abbreviated  dates.  Event  codes 
are  changed  to  the  more  commonly  used  abbreviations. 

10.  Vpcalendar  module 

This  is  an  M-Prolog  version  of  the  calendar  module  written  by  LCDR  Hutson 
[Ref.  7].  It  was  enhanced  to  provide  the  correct  conversion  for  both  date  to  daynumber 
and  daynumber  to  date  during  all  years  including  leap  years. 

D.  DATA  STRUCTURES 

The  majority  of  the  data  structures  were  unchanged  from  LCDR  Hutson's  prototype 
[Ref.  7],  The  structures  use  event  codes  extensively.  The  meanings  of  the  event  codes  are 
given  in  Figure  4.5.  Some  of  the  structures  involving  dates  use  the  integer  value 
(daynumber)  while  others  use  a  Prolog  list  format  such  as  [1,  jan,  1986]  for  the  date 
January  1,  1986.  Because  this  thesis  is  additionally  concerned  wdth  dates  in  a  monthly 
increment,  a  unique  integer  value  (monthnumber)  is  used.  Whenever  a  data  structure 
specifies  the  need  for  a  date,  it  is  expecting  the  list  format.  The  daynumber  or 
monthnumber  will  be  given  if  required. 


SYMBOL 


EVENT  NAME 


1  ec 

Command  Inspection  | 

1  en 

1  ewe 

pre-MRCI/CTPI 

ewm 

MR  Cl 

ewp 

pre-NTPI 

ewn 

NTPI  | 

trla 

first  ready-alert  1 

trlb 

second  ready-alert  1 

trie 

third  ready-alert 

dv 

ORE  vulnerability  period 

ds 

Post-deployment 

Safety-Standown 

dr 

Operational  Deployment 

Figure  4  .5  Event  Symbol  Definitions 


Most  of  the  structures  that  involve  an  event  are  facts  in  the  program  database.  These 
facts  have  a  predicate  name  defining  what  type  of  event  it  is  and  either  three  or  four 
arguments.  The  first  argument  is  the  squadron.  The  second  argument  is  the  symbol  for  the 
inspection  or  event.  The  third  and  fourth  arguments  are  daynumbers  or  dates.  An  example 

is: 

priorevent(vpl9,tr  la,  14096  3, 140994). 

This  is  a  fact  that  occurred  prior  to  the  start  of  the  period  being  scheduled.  The 
squadron,VP-19,  had  its  first  ready-alert  starting  on  the  date  associated  with  the  daynumber 
140963  and  ending  on  the  date  associated  with  daynumber  140994. 

The  following  are  similar  structures  that  were  carried  over  from  LCDR  Hutson's 
prototype  [Ref.  7): 

prerequisite(<squadron>,  <event  code>,  <start  davnumber>,  <finish 
daynumber>) 

priorevent! <squadron>, <event  code>,  <start  daynumber>,  cfinish 
daynumber>) 


earmark(<squadron>,<event  code>,  <date>) 

trialperiod(<event  code>,  <start  daynumber>,  <finish  daynumber>) 

readyevent(<squadron>,  <event  code>,  <start  daynumber>,  <fmish 
daynumber>) 

The  following  new  structures  were  created  for  this  thesis: 

ready_montk(<squadron>,  <monthnumber>) 

ready_half_month(<squadron>,  <monthnumber>) 

prioreventdate(<squadron>,<event  code>,  <start  date>,  <finish 
date>) 

prerequisitedate(<squadron>,<event  code>,  <start  date>,  <finish 
date>) 

During  stage  Eli  an  indexing  scheme  is  used  in  the  data  structures  for  the  search.  Each 
state  or  list  of  events  that  make  a  schedule  is  given  a  unique  integer  value.  Rather  than 
passing  the  list  of  events  from  rule  to  rule  during  the  search,  only  the  index  is  passed.  The 
indexing  is  used  to  associate  the  squadrons  costs  and  the  team  events  costs  to  the  particular 
state. 

E.  COST  FUNCTIONS 

In  this  thesis  three  cost  functions  were  developed.  The  optimum  interval  between  a 
pre-inspection  and  the  actual  inspection  is  three  weeks,  not  one  month  [Ref.  10].  It  is  also 
less  critical  for  an  inspection  team  to  be  scheduled  every  thirty  days  than  it  is  for  a 
squadron.  The  three  cost  functions,  therefore  are  broken  into  the  cases  for: 

(a)  squadron  related-events  cost 

(b)  squadron  unrelated -events  cost 

(c)  team  cost. 

Prof.  Rowe  assisted  in  the  development  of  the  polynomial  functions  used  in  the  three 
cost  functions.  Each  has  a  single  minimum  value  of  1.0.  The  major  differences  among  the 
functions  are  the  values  at  which  the  minimum  occurs  and  the  rate  of  increase  for  delay 
periods  greater  than  where  the  minimum  occurs.  In  each  case,  the  cost  of  a  delay  that  is  C 
less  than  the  optimum  value  is  greater  than  the  cost  for  a  delay  amount  C  greater  than  the 
optimum  value.  The  squadron  cost  for  delays  greater  than  180  days  is  made  zero  because 
deployments  are  normally  six  months  in  duration.  There  should  not  be  a  cost  associated 


with  the  delay  measured  between  the  last  event  preceding  a  deployment  and  the  first  event 
following  it 

The  squadron  related-events  cost  formulas  given  in  Figure  4.6  were  developed  to 
have  a  minimum  cost  occur  at  a  delay  of  twenty-one  days,  a  cost  value  of  one  hundred  at  a 
delay  of  zero  days,  and  a  cost  of  ten  at  a  delay  of  forty-two  days. 


Delay  (D) 

Cost  Formula 

<21 

Cost  =  100  -  243  *  (D/21)  +  189  *  (D/21)A2  -  45  *  (0/21^3 

>=21 

Cost  =  10  -  6/7  *  D  +  1/49  *  DA2 

>180 

o 

ii 

«-» 

1/5 

o 

U 

Figure  4.6  Squadron  Related-events  Cost  Formulas 

The  squadron  unrelated-events  cost  formulas  given  in  Figure  4.7  were  developed  to 
have  a  minimum  cost  occur  at  a  delay  of  thirty  days,  a  cost  value  of  one  hundred  at  a  delay 
of  zero  days,  and  a  cost  of  ten  at  a  delay  of  sixty  days. 


Delay  (D) 

Cost  Formula 

<30 

Cost  =  100  -  243  *  (D/30)  +  189  *  (D/30)A2  -  45  *  (D/30)A3 

>=  30 

Cost  =  10  -  0.6  *  D  +  0.01  *  DA2 

>180 

Cost  =  0 

Figure  4.7  Squadron  Unrelated-events  Cost  Formulas 


The  team-event  cost  formulas,  given  in  Figure  4.8,  were  developed  to  have  a 
minimum  cost  occur  at  a  delay  of  thirty  days,  a  cost  value  of  one  hundred  at  a  delay  of  zero 
days,  and  a  cost  of  ten  at  a  delay  of  sixty  days  with  small  increases  in  cost  thereafter. 

IDelavfD)^^ ^ ^ ^ 

<51 _ Cost  =  100  -  247.25  »  (D/30)  +  197.5  *  (D/30)  A2  -  49.25  »  (D/30)A3 

>=  51  Cost  =  8.52  4-  l/(50/D)A2 

Figure  4.8  Team-events  Cost  Formulas 

Each  of  the  three  cost  have  an  identical  evaluation  function,  the  number  of  unscheduled 
events,  which  is  used  to  determine  when  the  search  has  reached  its  goal. 
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V.  PROGRAM  RESULTS 

A.  TEST  DATA 

The  data  collected  and  reported  in  [Ref.  7]  was  used  for  comparing  the  results  of 
LCDR  Hutson's  program  [Ref.  7],  the  manual  schedule,  and  this  program.  This  data  was 
used  to  create  the  CPW-10  Training  schedule  containing  upto  six  events  for  each  of  the 
seven  squadrons  during  fiscal  year  1986.  In  order  to  more  thoroughly  test  this  program, 
additional  data  was  collected  from  the  CPW-10  Training  office  personnel  [Ref.  8,9,10], 
covering  the  fiscal  year  1989.  A  working  version  of  LCDR  Hutson’s  prototype  was  not 
available  to  allow  further  comparisons  using  the  new  data. 

B  .  STORAGE  REQUIREMENTS 

When  all  th.  program  was  consolidated  into  a  single  binary  module  that  runs  using  the 
M-Prolog  interpreter,  it  required  124928  bytes  of  storage.  The  consolidated  compiled 
program  program  required  167936  bytes  of  storage.  Depending  on  the  year  being 
scheduled,  the  main  stack  size  varied  from  3496  using  1986  data  to  only  2827  using  1989 
data.  Likewise  the  statement  table  varied  from  74967  to  63340,  using  1986  and  1989  data 
respectively. 

C.  STAGE  I  TIMES 

The  cpu  time  required  to  run  Stage  I  of  the  program  is  dependent  upon  the  amount  of 
information  that  is  preloaded  into  the  datafile.  When  the  user  knows  the  ready-alert 
schedule,  the  earmark  dates,  and  the  priorevent  dates,  and  the  trialperiod  information  has  all 
been  computed  from  prior  runs,  then  Stage  I  is  a  matter  of  the  program  reading  the 
information  from  the  datafile  and  asserting  it  into  the  program  database  as  Prolog  facts, 
plus  adding  readymonth  facts.  When  done  this  way,  Stage  I  required  approximately  24  to 
28  cpu  seconds. 

If  the  datafile  contains  the  minimal  information  of  only  the  priorevents  and  the 
deployment-related  dates,  then  Stage  I  required  140  to  182  cpu  seconds  to  complete.  The 
process  of  computing  the  trialperiods  for  the  schedule  year,  asserting  them  as  facts  in  the 
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program  database  and  writing  them  to  the  database  file  required  an  average  of  0.165  cpu 
seconds  per  trialperiod.  The  time  required  to  compute  the  earmark  dates,  assert  them  as 
facts  in  the  database,  and  write  them  to  the  database  file  was  approximately  2  to  3  cpu 
seconds.  For  the  computer  to  calculate  the  earmark  dates,  the  datafile  must  contain  all  the 
priorevents  completed,  not  just  those  completed  since  the  squadrons'  last  deployment. 

The  final  step  of  Stage  I,  the  search  for  the  ready-alert  schedule  varied  a  great  deal 
depending  on  the  year.  The  average  time  for  1986  was  6  cpu  seconds,  and  for  1989,  27 
cpu  seconds. 

The  diagram  in  Figure  5.1  shows  the  total  times  required  for  Stage  I  depending  on  the 
datafile  content  The  time  required  to  produce  a  schedule  varies  depending  on  the  year  and 
the  number  of  events  to  be  scheduled.  Every  fiscal  year  will  not  have  the  same  number  of 
trialperiods  available  due  to  the  placement  of  holidays  which  must  be  scheduled  around. 
Depending  on  the  deployment  cycles,  the  number  of  inspections  required  during  different 
fiscal  years  will  also  vary. 
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Stage  I  Times 


Priorevents 

Known? 

Deployment 

Data 

Known? 

Earmark 

Dates 

Known? 

Trialperiods 

Known? 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

YES 

NO 

YES 

YES 

NO 

NO 

CPU  Time 
1986  1989 


24.08  27.18 


NO  27.74  51.28 


NO  143.74  171.66 


NO  139.74  181.74 


YES  -  indicates  the  information  was  pre-loaded  into  the  datafile 
time  -  is  in  cpu  seconds 


Figure  5.1  Stage  I  Times 


D.  STAGE  II  TIMES 

The  times  for  Stage  II  were  dependent  on  the  number  of  conflicts  existing  in  the  initial 
schedule  made  from  the  first_pick_month.  We  also  show  the  number  of  conflicts  that 
could  not  be  resolved  by  attempting  to  reschedule  conflicting  events  within  three  months 
either  side  of  their  first_pick_month.  Below  is  a  diagram  showing  the  times  for  Stage  II 
for  different  schedule  years. 
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Stage  II  Times 


Fiscal 

Year 

Events 
to  be 

Scheduled 

Initial 

Conflicts 

Unresolved 

Conflicts 

Stage  II 
Time 

Average 
Time  /  Event 

1986 

31 

6 

0 

220.0 

7.10 

1989 

22 

6 

0 

48.0 

2.18 

time  -  is  in  cpu  seconds 

Figure  5.2  Stage  II  Times 


E.  STAGE  III  TIMES 

The  final  search  (Stage  III)  was  the  largest  consumer  of  time.  Two  techniques 
discovered  useful  to  reduce  the  time  for  Stage  HI  were  indexing  the  cost  and  determining 
when  the  minimum  cost  was  reached.  When  the  scheduler  program  was  run  with  Stage  HI 
doing  a  normal  hill-climbing  search,  the  time  for  Stage  HI  was  1408  cpu  seconds  for  the 
1986  schedule  and  712  cpu  seconds  for  the  1989  schedule. 

Finding  the  minimum  cost  for  adding  a  new  successor  was  possible  because  the 
trialperiods  for  events  being  added  were  generated  sequentially  beginning  at  the  first  period 
of  the  month,  and  because  the  events  were  added  to  the  schedule  beginning  with  those  in 
the  schedule-start-month  chronologically  progressing  through  the  year.  Since  all  cost 
functions  used  are  convex,  the  minimum  cost  is  when  the  total  cost  is  no  longer  decreasing. 
When  the  hill-climbing  search  was  so  modified,  the  Stage  ID  time  was  reduced  to  840  cpu 
seconds  for  the  1986  and  to  493  cpu  seconds  for  the  1989  schedules. 

Using  a  hill-climbing  search,  each  time  a  new  successor  is  added  tc  the  current 
schedule,  the  cost  of  the  new'  schedule  must  be  found.  The  function  to  compute  the  cost  of 
a  schedule  is  done  in  two  parts,  the  squadron  cost  and  the  inspection  team  cost,  as 
explained  in  Hutson's  thesis  [Ref.  7j.  Without  indexing  all  the  individual  squadron-costs 


and  all  the  team-costs  are  recomputed  for  each  new  schedule.  With  indexing  only  the 
squadron-cost  for  the  new  event's  squadron  and  the  team-cost  of  the  inspection  team 
associated  with  the  new  event  is  recomputed.  The  remaining  costs,  referenced  by  indexes, 
are  brought  forward  from  the  previous  schedule  and  must  only  be  added  to  arrive  at  the 
new  total  cost.  With  the  costs  indexed,  so  that  only  the  new  cost  for  the  specific  squadron 
and  the  new  cost  for  the  specific  inspection  being  added  to  the  schedule  were  computed  as 
each  new  successor  was  added,  the  time  for  Stage  ID  was  further  reduced  to  308  cpu 
seconds  for  1986  and  to  196  cpu  seconds  for  1989. 


il 


FY 

Time 

Using 

Original 

Search 

Time 

Using 

Min  Cost 

Search 

Reduction 

Time 

Using 

Min  Cost 

&  Indexing 

Reduction 

1986 

1408 
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Figure  5.3  Summary  of  Stage  III  Time  Improvements 


F.  SCHEDULE  GENERAL  QUALITY 

Though  the  schedules  produced  using  this  program  have  not  achieved  the  absolute 
optimized  results,  the  trade-off  of  reduced  computation  time  for  optimization  is  more  than 
favorable.  The  average  number  of  days  between  events  for  a  squadron  for  the  1986 
schedule  is  21.85  days.  The  average  number  of  days  between  events  for  an  inspection 
team  is  61.32.  Five  days  is  the  smallest  delay  between  two  consecutive  events  for  a  single 
squadron.  Three  days  is  the  smallest  delay  between  two  consecutive  events  for  an 
inspection  team.  The  schedules  for  both  1986  and  1989  are  reasonable. 

G  .  IMPROVEMENTS  MADE  OVER  LCDR  HUTSON’S  PROGRAM 

The  objective  of  this  thesis's  approach  to  the  scheduling  problem  was  to  reduce  the 
search  space  to  enable  the  searches  for  the  optimum  schedule  to  be  completed  in  a  shorter 
period  of  time  on  a  less  capable  computer  system.  Comparing  the  total  of  22534  cpu 


seconds  required  to  produce  the  1986  schedule  using  LCDR  Hutson's  program  and  only 
555  cpu  seconds  using  this  thesis's  program,  it  is  obvious  we  did  achieve  the  objective. 
The  idea  of  starting  with  first_pick_months  in  Stage  II  came  from  studying  the  manual 
algorithm  and  prior  training  schedules  that  were  developed  using  it.  Prior  schedules 
showed  there  is  a  high  correlation  to  the  order  of  the  events  for  a  squadron  and  its 
deployment  cycle.  By  rescheduling  events  in  conflict,  the  result  of  Stage  II  is  a  schedule 
with  a  better  spread  of  the  events. 

The  search  in  Stage  HI  is  a  hill-climbing  search  and  is  the  principle  reason  for  the 
overall  speed  increase  over  the  Hutson  prototype.  Since  the  ready-alert  schedule  is  the  start 
state  for  this  search,  the  decision  of  where  a  new  event  will  best  fit  into  the  schedule  will 
take  into  consideration  the  prior-events  and  any  ready-alert  for  the  same  squadron.  This 
causes  the  program  to  position  events  closer  to  the  center  of  a  month  if  the  squadron  has 
ready-alerts  the  month  prior  and  the  month  following. 

The  interface  module  provides  improvements  to  LCDR  Hutson's  program  by  allowing 
flexibility  in  the  initial  database  set-up.  The  user  can  have  the  computer  determine  the 
ready-alerts  or  manually  input  the  schedule.  Once  the  program  has  run  on  a  given  schedule 
year,  the  database  file  will  contain  trialperiods  which  can  be  read  into  the  program  during 
future  runs  on  the  same  schedule  year,  avoiding  the  time-consuming  process  of 
recomputing  these  trialperiods. 

The  information  in  the  Database. pro  file  is  self-explanatory  and  can  be  modified 
directly  by  anyone  familiar  with  using  a  text  editor  program.  Because  the  initial  data  is  read 
in  from  the  Database. pro  file,  making  improvements  to  the  user  interface  is  easy.  Any 
interface  can  be  used  that  will  produce  the  Databasc.pro  file  in  the  same  format.  An 
example  would  be  to  use  a  HyperCard1  program  to  build  the  file. 


'"HyperCard  is  a  register  trademark  of  Apple  Computer.  Incorporate,  Cupertino, 
California. 
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VI.  CONCLUSIONS 


This  thesis  has  demonstrated  that  a  microcomputer  does  have  the  power  to  perform  the 
computations  necessary  to  produce  a  schedule  much  quicker  than  can  be  done  by  hand. 
The  schedule  produced  using  this  thesis’s  program  is  also  more  optimal  than  the  manual 
schedule.  It  was  not  quite  able  to  achieve  the  same  degree  of  optimization  achieved  by  the 
Hutson  prototype,  but  was  much  faster.  The  degree  of  ondmization  achieved  is  illustrated 
in  Figure  6. 1 ,  which  shows  the  total  costs  calculated  using  the  same  cost  function  on  the 
1986  schedules  produced  using  the  manual  method,  the  Hutson  prototype,  and  this  thesis's 
method. 


r . .  1 

Scheduling  Method 

Total  Cost  Calculated 

Manual 

831.6 

Hutson's  Prototype 

596.7 

This  Program 

675.7 

Figure  6.1  Total  Cost  for  1986  Schedule 


This  thesis  also  shows  the  significant  time  savings  of  indexing  the  cost  in  each  state  of 
the  hill-climbing  search  over  computing  all  the  cost  each  time  a  new  successor  is  found. 
But  if  simpler  cost  functions  are  used  this  technique  might  not  result  in  a  significant  savings 
of  time. 

This  program  is  ready  for  use  at  CPW-10,  once  the  code  is  convened  to  run  on  IBM- 
compatible  computers.  Changing  the  squadron  names  that  have  been  hardcoded  into  the 
program  is  all  that  is  necessary'  to  make  the  program  adaptable  for  the  other  three  Patrol 
Wings. 

The  user  interface  with  this  program  can  use  a  great  deal  of  improvement.  Any 
interface  that  provides  a  way  of  updating  the  database  file  could  be  used.  An  interface  that 
could  quickly  and  easily  change  the  database  file  would  greatly  enhance  this  program.  The 
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results  of  the  program  are  currently  hardcoded  to  be  written  to  the  file  SCHEDULE.pro. 
An  interface  that  allows  the  user  to  change  the  output  file  would  also  be  helpful. 

This  thesis  did  not  research  the  cost  function  used  in  the  Stage  HI  search.  Thirty  days 
between  events  may  not  actually  be  the  ideal.  This  is  an  area  for  further  thesis  work. 
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APPENDIX  A  -  PROGRAM  SOURCE  CODE 


VPSCHEDULER  MODULE 
This  is  the  module  that  initiates  the  scheduling  program. 


module  main. 

import  ( go  /0). 

/*$eject*/ 

body. 

go. 

endmod  /*  main  */  . 
module  vpscheduler. 

export  (  go  /0,  successor_counter  /0,  give_eount  /2,  processtime  /2,  display_statistics  /0). 

import  (  generate_first_pick  /  0,generate_final_schedule  /  3,  search  1  /  1 ,  ready jmonth  /2, 
search2  /I ,  union  /  3,  append  /3,  create_datafile  /  0,  read_datafile  /  0, 
convert_date_data  /  0,  complete_database  /  1 ,  nopathsearch/  2,  open  /  2,  tell  /  2, 
told  /  1,  database_conversion  /0,  get_trialperiods  /0,  sortevent  /2,  depthsearch  /2, 
prettyprint  /l,  myname  /2,  stars  /0, state  /  2,  daynumber_to_date  /2,  yearend  / 1 , 
squadronlist/1,  eventprinter  /  1,  countl  /I  ,count2/2  ,count3  / 1). 

global  (status,trialperiod,prerequisite,event,search  1 , 
jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 

monday,tuesday,wednesday,thursday,friday,saturday, Sunday, weekend, 
tr  1  a,tr  1  b,tr  1  c,ewp.ewn,en,ewc,e  wm,ec,dv  1  ,dr  1  ,ds  1  ,tr  1  ,dsO, 
\rp9,vpl9,vp40,vp46,vp47,vp48,\'p50). 

/*Seject’1'/ 

body. 

dynamicfother_process_time/l ). 
dvnamic(sub_successorcount/l ). 
dynamic!  totaLsuccessorcount,'! ). 


start.time, 

display  .statistics, 

init.dynamics, 

create.datafile, 

read.datafile, 

convert_date_data, 

processtime("converting  the  datafile"^), 
complete_database(  Answer  1 ), 
processtime("completing  the  database  (Stage 
write("The  total  time  to  complete  Stage  I  is  :"),nl, 
display.statistics, 
search2(Answer2),! , 
eventprinter(Answer2), 

processtime("generating  monthly  schedule  (Stage  II)",_), 
generate_final_schedule(Answerl,Answer2,Answer3), 
sonevent(Answer3,Answer4), 
eventprinter(  Answer4) , 

processtime("generating  final  schedule  (Stage  ni)",_), 
write("WRmNG  THE  FINAL  SCHEDULE  TO  THE  FILE 
$"SCHEDULE.pro$"..."),  nl, 
open(l  ."SCHEDULE. pro"), 
tell(  1  ."SCHEDULE.pro"), 

write("THE  FOLLOWING  IS  THE  COMPUTED  SCHEDULE:  "),nl,nl, 

eventprinter(Answer4), 

told(l), 

display.statistics, 

write("The  Scheduler  is  now  FINISHED. ,."),nl. 


go:- 

writeCUNABLE  TO  DETERMINE  SCHEDULE.  VERIFY  DATABASE  INPUT 
SAND  TRY  AGAIN"), nl,!. 

/*  change  system  date  to  common  format.  47  is  7  ;  48  is  'O' .  */ 

con  vert_date(S  ystemDate,Date) :  - 
mvnarr.e(SystemDate,LIST ), 

LIST  =  [A,B,C,D,E,FJ, 
myname(Date,[A,B,47,C,D,47,E,F]). 

convert_date(SystemDateX>ate):- 

mvname(SystemDate,LIST), 

LIST  =  [B,C,D,E,F], 
myname(Date,[48,B,47,C,D,47,E,Fj). 

/*  change  system  time  to  common  format.  58  is  ;  48  is  'O'.  */ 

conven_time(SystemTime,Tirne):- 
myname(SystemTime,LIST  j , 

LIST  =  [A,B,C,D,E,F], 
myname(Time,[  A,B,58,C,D,58,E,F]). 
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convert_time(SystemTime,Time):- 

myname(SystemTime,LIST), 

LIST  =  [B,C,D,E,F], 
myname(Time,[48,B,58,C,D,58,E,F]). 

start_time:- 

state(system_date,SYSDate), 

convert_date(SYSDate,DATE), 

write(DATE),write_spaces(l), 

state(system_time,SYSTime), 

convert_time(SYSTime,TIME), 

write(TIME),nl,nl, 

writeC'THE  SCHEDULER  IS  PROCESSING 

give_count(Process,Time):- 

sub_successorcount(SSK), 

del_all_statements(sub_successorcount/l), 

add_statement(sub_successorcount(0)), 

write("==>  Successors  generated  during  ”),write(Process), writeC :’’) 
write(SSK),nl, 

Average  is  Time/S SK, 

write("==>  Average  process  time  for  successors  in  "), 
write(Process),write('’:"),write(Average),wTite("  cpu  seconds."), nl,! 

final_count:- 

totaLsuccessorcount(TSK), 

state(cpu_time,X), 

Overall  is  X/(TSK*  1000), 

write("Total  successors  =  "),write(TSK), 

write  ("and  overall  Average  Processing  Time  =  "),write(Overall), 

writeC  cpu  seconds. "),nl,!. 

successor_counter.- 

sub_successorcount(SSK), 

total_successorcount(TSK), 

del_statement(sub_successorcount(SSK)), 

del_statement(totaLsuccessorcount(TSK)), 

SSK2  is  SSK  +  1, 

TSK2  is  TSK  +  1, 

add_statement(sub_successorcount(SSK2)), 

add_statement(totaLsuccessorcount(TSK2)),!. 

processtime(Process,FT):- 

state(cpu_time,X), 

other_process_time(OPT), 

deI_statement(other_process_time(OPT)), 

FT  is  (X  -  OPT)/1000, 

writeCThe  process  for  "),write(Process), 

writeC  completed  in:  "),write(FT),write("  cpu  seconds. "),nl. 

add_statemcnt(other_process_time(X)).!. 


display_statistics:- 
stars,  stars, 

write_tab(  18), writeC'S  YSTEM  STATUS"),nl, 
state(cpu_time,X), 

write("cpu  time  =  ”),write(X),write("  msec"),nl, 
state(main_stack,[U,C]), 
write("main  stack  used  =  "),write(U),nl, 
state(statement_table,[U  1  ,C1]), 
writeC’statement  table  used  =  "),write(Ul),nl, 


init_dynamics 

add_statement(other _process_time(0)), 

add_statement(sub_successorcount(0)), 

add_statement(total_successorcount(0)), 

add_statement(count  1(0)), 

add_statement(count2(0)), 

add_statement(count3(0)). 

endmod  /*  module  vpscheduler  */ . 
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VPINTERFACE  MODULE 

This  module  reads  the  database  file  DATABASE.pro  and  asserts  the  appropriate  facts 
into  the  program  database. 


module  vpinterface . 

export  (yearbegindate  /  1,  yearenddate  /  1,  create_datafile  /  0,  read_datafile  /  0, 
convert_date_data  /  0,  complete_database  /  1 ,  earmark  /  3,  eventcode  /  2, 
eventnames  /  1,  squadronlist  /  1,  priorevent  /  4,  prerequisite  /  4,  earmark  /  3, 
eventcode  /  2,  teamevents  / 1,  yearbegin  /  1,  yearend  / 1). 

import  (member  /  2,  myname  /  2,  search  1  /  1,  datetodaynumber  /  2, 

daynumber_to_date  /  2,  trialperiod  /  3,  display_statistics  /  0,  month_to_number  /3, 
number_to_month  /3,generate_trialperiods  /0,  build_ready_months  /  1, 
readyevent  /  4,  build_readyevents  /  1,  eventprinter  /I ,  open  /  2,  tell  /  2,  told  /  1  ). 

global  (readyevent.priorevent, prerequisite, earmark.trialperiod, 
status, prerequisite,  yearbegindate,  yearenddate, event, 
prioreventdate,prerequisitedate,readyeventdate, 
ntpi,pre_mrci,mrci,natops, comm  and, ready_alert,pre_ntpi, 
jan,feb,mar,apr,mayjun,jul,aug,sep,oct,nov,dec, 
monday.tuesday , Wednesday, thursday,friday,saturday,sunday, weekend, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50,y,n,quit). 

/*$eject*/ 

body. 

dynamic(yearbegindate/l ). 

dynamic(yearenddate/l ). 

dynamic(yearbegin/l ). 

dynamic(yearend/l). 

dynamic(priorevent/4). 

dynamic(prerequisite/4). 

dynamic(earmark/3). 

dynamic(prioreventdate/4). 

dynamic(prerequisitedate/4). 

dynamic(readyeventdate/4). 

create_datafile 

newpage, 

datafileinfo, 

writeCHas  the  file  $"DATABASE.proS"  been  updated?  (Y/N)"),nl, 

get_answer(  Ans),nl,nl 

handle_answer(Ans,ReadySched),!. 

newpage  nl,nl,nl,nl.nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl, nl.nl, nl, nl.nl. 
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datafileinfo 

write("THIS  PROGRAM  WILL  READ  INFORMATION  FROM  A  DATA  FILE 
SNAMED  "),  nl, 

write("$"DATABASE.pro$"  OR  "),nl, 

writeC'IT  WILL  ASK  YOU  TO  TYPE-IN  THE  REQUIRED  INFORMATION  TO  "), 
ni,  writeO'BUILD  A  NEW  DATA  FILE  NAMED  $"DATABASE.pro$" nl,  nl, 
writeC'PLEASE  NOTE:  BUILDING  A  NEW  DATA  FILE  WILL  DESTROY  THE  "), 
nl,  writeC'INFORMATION  IN  THE  OLD  DATA  FILE"),nl,nl,nl, nl.nl. 

handle_answer(ANS,ReadySched) 

affirm_answer(ANS),!.  f*  data  file  is  cuiTent  */ 

handle_answer(ANS,ReadySched) 

neg_answer(ANS),  /*  data  file  needs  updated  */ 

double_check, 

update_database_file,! . 

double_check 

newpage, 

write("CONTINUING  WILL  DESTROY  THE  CURRENT  CONTENTS  OF  THE 
SFILE"),  nl, 

write("$"DATABASE.pro$"....ARE  YOU  SURE  THAT  YOU  WANT  TO 
SCONTINUE  ?"), 
write("  (Y/N)  "),  nl,  nl,  nl, 
get_answer(ANS), 
handle_double_check(ANS). 

handle_double_check(ANS) 
affirm_ans  wer(  ANS ) . 

fundle_double_check(ANS) 

halt. 

update_database_file :  - 

open(3,"DATABASE.pro"), 

update_scheduledates, 

update_priorevents, 

update_deployments, 

told(3). 

update_scheduledates 

writeC'Enter  the  schedule  START  date  -  (ex.  1  oct  1985)"), nl, 
get_date(YSD,YSM,YSY),nl,nl, 

v,rite("Enter  the  schedule  FINISH  date  -  (ex.  30  sep  1986)"), nl, 

get_date(YFD,YFM,YFY),nl,nl, 

tell(3,"DATABASE.pro"), 

v.riteryearbegindate(["),write(YSD),write(","), 

write(YSM), writer,"), v,Tite(YSY),write("])"),nl, 

write("yearenddate(["),write(YFD),  writer,"), 

write(YFM;,write(","),write(YFY),write("])"),nl, 

told(3). 


38 


update_priorevents 

priorevent_header, 
member(SQ, [9,19,40, 46, 47 ,48,50]), 
write("Squadron:  VP-"),write(SQ),nl,nl, 
member(Event,[trla,en,ec,ewp,ewn,ewc,ewm]), 

add_priorevents(Event,SQ,3,"DATABASE.pro"),  /*  3  is  output  channel  */ 
fail. 

update_priorevents !. 
priorevent_header 

write("Enter  the  most  recent  finish  dates  for  each  of  the"),  nl, 
write(”events/inspections  conducted  for  each  squadron. "),nl,nl, 
dashes. 

add_priorevents(EVT,SQ,CH,OUTFTLENAME) 
switch(EVT,EVTNAME), 
write("Last "), 
write(EVTNAME), 

writef  END  DATE:  (31  jul  1986)"),nl, 
get_date(DAY2,M02,YR2),nl, 

DAY1  is  DAY2  -  1,  /*  the  start  date  of  the  priorevents  is  not  important  */ 

write_data("prioreventdate",CH,OUTFILENAME,SQ,EVT,DAYl,M02,YR2,DAY2, 
M02,YR2),!. 

switch(trla, "Ready  Alert"). 

switch(en,"NATOPS"). 

switch(ec, "Command  Inspection"). 

switch(ewp,"pre-NTPI"). 

switch(ewn,"NTPr). 

switch(ewc,"PRE_MRCI"). 

switch(ewm,"MRCI"). 

update_deployments 
deploymentheader, 
member(SQ,  [9, 19,40,46,47, 48, 50]), 
get_ore_dates("prerequisitedate",SQ,3,"DATABASE.pro"), 
get_ssd_dates("prerequisitedate",SQ,3,"DATABASE.pro"), 
get_deployment_dates("prerequisitedate",SQ,3,"DATABASE.pro"), 
fail. 

update_deployments  !. 

get_ore_dates(PRED,SQ,CH,OUTFILENAME) 
w.Tite("Squadron:  VP-"),write(SQ),nl,nl, 
writerORE  PERIOD  START  DATE:  (ex.  01  jul  1986)"), nl, 
get_date(DA  Y 1  .MO  1  ,YR  1  ),nl, 
wTiteCORE  PERIOD  END  DATE:  (30  sep  1986)"), nl, 
get_date(DAY2,M02,YR2),nI, 

write_data(PRED,CH,OUTFILENAME,SQ,dv  1  ,DA  Y 1  ,M01  ,YR  1  ,DA  Y2,M02, 
YR2),  1. 
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get_ssd_dates(PRED,SQ,CH,OUTFILENAME)  :- 
write("Squadron:  VP-"),write(SQ),nl,nI, 

write("Enter  information  for  the  SAFETY  STAND-DOWN  period  PRIOR  to"),nl, 
write("the  above  ORE  PERIOD"),nl,nl, 

write("SAFETY  STAND-DOWN  PERIOD  START  DATE:  (ex.  11  dec  1985)"), nl, 
get_date(DAY  1  ,MO  1  ,YR  1  ),nl, 

write(  "SAFETY  STAND-DOWN  PERIOD  END  DATE:  (ex.  10  jan  1986)"),nl, 
get_date(DAY2,M02,YR2),  nl, 

write_data(PRED,CH,OUTFILENAME,SQ,dsO,DAY  1  ,M01,YR  1  .DAY2.M02, 
YR2),!. 

get_deployment_dates(PR£D,SQ,CH,OUTFILENAME)  :- 
write("Squadron:  VP-"),write(SQ), nl.nl, 

write("Enter  information  for  the  DEPLOYMENT  period  FOLLOWING  "),nl, 
write("the  above  ORE  PERIOD"),nl,nl, 

write("DEPLOYMENT  PERIOD  START  DATE:  (ex.  16  nov  1986)"),nl, 
get_date(DAY  1  ,MO  1 ,  YR 1  ),nl, 

write("DEPLOYMENT  PERIOD  END  DATE:  (ex.  05  may  1987)"), nl, 
get_date(DAY2,M02,YR2),  nl, 

write_data(PRED,CH,OUTFILENAME  ,S  Q  ,dr  1  ,D  A  Y 1  ,M0 1  ,YR  1  ,D  A  Y2,M02 , 
YR2), 

compute_ssd2(SQ,DAY2,M02,YR2,PRED,CH,OUTFILENAME),!. 

/*  Adds  the  safety  standdown  following  the  deployment  */ 

compute_ssd2(SQ,DAY,MO,YR,PRED,CH,OUTFILENAME)  :- 
datetodaynumber([DAY,MO,YR],DeploymentFDN), 

SDN  is  DeploymentFDN  +  1, 

FDN  is  SDN  +  30, 

day  number_to_date(S  DN,  [D  A  Y 1  ,MO  1  ,YR  1  ] ) , 
daynumber_to_date(FDN,[DAY2,M02,YR2]), 

write_data(PRED,CH,OUTFILENAME,SQ,ds  1  ,D  A  Y 1  ,MO  1  ,YR  1  ,D  A  Y2.M02, 
YR2),!. 

read_datafile 

newpage, 

writefREADING  DATA  FROM  THE  FILE  $"DATABASE.pro$" . "),nl, 

set_channel(infile(2),name  =  "DATABASE. pro"), 

set_input(infile(2)), 

read_datafile2, 

fail. 

read_datafile  :- 

close_input(infile(2)). 

read_datafile2 

read_token(file  end),nl,nl,  +  . 
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read_datafile2 

read(X), 

writeC'.”), 
add_statement(X) , 
read_datafile2. 

convert_date_data 

prioreventdate(SQ,E,S,F), 
datetodaynumber(S  ,S  DN), 
datetodaynumber(F,FDN), 
add_statement(priorevent(SQ,E,SDN,FDN)), 
fail. 

convert_date_data 

prerequisitedate(SQ,E,  S  ,F), 

datetodaynumber(S,SDN), 

datetodaynumber(F,FDN), 

add_statement(prerequisite(SQ,E,SDN,FDN)), 

fail. 

convert_date_data 

readyeventdate(SQ,E,S,F), 

datetodaynumber(S,SDN), 

datetodaynumber(F,FDN), 

add_statement(readyevent(SQ,E,SDN,FDN)), 

fail. 

convert_date_data 

del_all_statements(prioreventdate/4), 

del_all_statements(prerequisitedate/4), 

del_all_statements(readyeventdate/4). 

complete_database(R£ADYLIST) 

year_to_schedule, 

writeC’Updating  the  earmark  events. ..."), nl, 

display_statistics, 

update_earmarks, 

writeC'Finished  updating  the  earmark  events  ...”),nl, 
display_staustics, 

delete_old_priorevents,  / *  deletes  the  priorevents  before  dsO  */ 
write  ("Updating  the  trialperiod  events. ..."),nl, 
display_statistics, 
update_trialperiods, 

writeC'Finished  updating  the  trialperiod  events  ..."),nl, 
display_statistics, 

writef'Updating  the  readyalen  events... ."),nl, 
display_statistics, 
update_readvalerts(READYLIST), 
writeC'Finished  updating  the  readyalert  events  ...”),nl, 
display_statistics. 
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update_readyalerts(READYLIST) 

readyevent(SQ,EVT,SDN,FDN)(  !*  the  readyevents  were  in  datafile  */ 
newpage, 

write("THE  READY  ALERT  SCHEDULE  CONTAINED  IN  THE  DATA  FILE"),nl, 

write("IS  NOW  BEING  READ  INTO  THE  PROGR  AM...."),nl,nl, 

make_readylist([],READYLIST), 

build_ready_months(READYLIST), 

write("THE  READY  ALEART  SCHEDULE  FOLLOWS 

dashes.nl, 

eventprinter(READYLIST). 

upda^_icadyalcns(READYLIST) . 
newpage, 

write("Do  you  want  the  computer  to  determine  the  Ready  Alert "), 
write("schedule  ?  (Y/N)"), tU.nl, nl.nl, 
get_answer(ANS ), 

process_ready_answer(ANS,READYLIST), 

add_readyevents_to_datafile(READYLIST). 

process_ready_answer(ANS,READYLIST) 

affirm_answer(ANS),  /*  let  the  computer  figure  R/A  sched  */ 
search  1  (READ  YLIST). 

process_ready_answer(ANS,READYLIST) 

neg_answer(ANS),  /*  ask  user  for  R/A  sched  */ 
get_readylist(READYLIST), 
build_readyevents(READYLIST), 
build_ready_months(READYLIST), 

get_readylist([]) 

get_squadron(SQ), 

SQ  =  quit. 

get_readylist([event(SQ,EVT,SD,FD)IRList]) 
get_squadron(SQ), 
get_ready_daynumbers(SDN,FDN), 
get_event(EVT), 
get_readylist([RList]) . 

get_squadron(SQ):- 

writef'Enter  the  squadron  --  (ex.  vp9)  "),nl, 
write(”  or  type  $”quit$"  when  finished.  "),nl, 
read_record(SQ), 
valid_squadron(SQ). 

get_squadron(SQ):- 

read_record(SQ), 

write(SQ), 

wTiteCis  not  valid  input  --  try  again"), 
get_squadron(SQj. 
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valid_squadron(vp9). 
valid_squadron(vp  19). 
valid_squadron(vp40). 
valid_squadron(vp46) . 
valid_squadron(vp47). 
valid_squadron(vp48). 
valid_squadron(vp50). 
valid_squadron(quit). 

get_ready_daynumbers(SDN,FDN) 

write("Enter  the  START  date  --  (ex.  1  apr  1986)"), nl, 
get  dateCD  1  .M 1  .Y 1  ).nl, 
datetodaynumber(SDN,[D  1  ,M  1 ,  Y 1  ]), 
writeC’Enter  the  FINISH  date  --  (ex.  30  apr  1986) "),nl, 
get_date(D2,M2,Y  2)  ,nl, 
datetcxiaynumber(FDN)[D2,M2)Y2]). 

get_event(EVT) 

writeC'Enter  the  number  of  Ready  Alerts  this  will  make  for  this"),nl, 

write("  squadron  during  this  schedule  year  —  "),nl, 

write("(ie.  enter  1  for  the  first,  2  for  the  second,  etc)."),ul, 

read_record(STR), 

convert(STR,string,NUM), 

valid_num(NUM), 

convert_num(NUM,EVT). 

get_event(EVT) 

read_record(STR), 

write(STR), 

write("  was  not  a  valid  entry  --  try  again. "),nl, 
get_event(EVT). 

valid_num(l). 

valid_num(2). 

valid_num(3). 

convert_num(  1  ,tr  1  a). 
convert_num(  1  ,tr  1  b). 
convert_num(l,trlc). 

make_readylist(Ll,L2) 

readyevent(SQ,E,S,F), 

not(member(event(SQ,E,S,F),Ll)), 

make_readylist([event(SQ,E,S,F)!Ll],L2). 

make_readylist(Ll,Ll) . 
add_readyevents_to_datafi!e(fl)  . 
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add_readyevents_to_datafile([event(SQ,E,SDN,FDN)IREADYLIST]) 

tell(3,"DATABASE.pro"), 

write("readyeventdate("),write(SQ),write(","), 

write(E),write(”,"), 

daynumber_to_date(SDN,SD), 

daynumber_to_date(FDN,FD), 

write(SD),write(","),write(FD),write(")"). 

told(3), 

add_readyevents_to_datafile(READYLIST). 

update_earmarks 

eannark(SQ,EVT,FDN).  I*  the  earmarks  are  current  */ 

update_earmarPs 

newpage, 

writeC’COMPUnNG  THE  EARMARK  DATES  FOR  EACH 
SQUADRON. ..."),nl,nl,nl,nl, 
priorevent(SQ,EVT,SDN,FDN), 
daynumber_to_date(FDN,FD), 
compute_earmark(EVT,FD,[DA  Y 1  ,MO  1  ,YR  1]), 
sqd_to_number(SQ,SQN), 

write_data(earmark, 3, "DATABASE. pro", SQN,EVT,DAY  1  ,MO  1  ,YR  1 ), 

add_statement(earmark(SQ,EVT,[DA  Y 1  ,MO  1 ,  YR 1  ])), 

fail. 

update_earmarks  !. 

compute_earmark(Insp,[FD,FMO,FYR],[FD,EMO,EYR]) 
neriodicity(Insp, Period), 
monu._to_number(FMO,FYR,MN), 

EMN  is  MN  +  Period. 
number_to_month(EMO,EYR,EMN),!. 

/*  The  periodicity  is  the  number  of  months  an  inspection  is  good  for.  */ 

periodicity(ec,12). 
periodicity(en,12). 
periodicity  (ewe,  18). 
periodicity(ewm,18). 
periodicity(ewn,  1 2). 

/*  remove  the  priorevents  done  before  the  last  safety  standdown  */ 

delete_old_priorevents 

eventnames(EVTList), 

squadronlist(SQList), 

member(SQ.SQList), 

prerequisite(SQ,dsO,SDN,FDN), 

member(EVT.EVTList). 

priorevent(SQ,EVT,SDNl,FDNl ), 

FDN1  <  SDN. 

del_statement(priorevent(SQ.EVT,SDNT,FDNl)), 
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delete_old_priorevents 

update_tria]periods 

trialperiod(EVT,SDN,FDN).  /*  the  database  is  current  */ 

update_trialperiods 

newpage, 

generate_trialperiods, 

store_in_datafile. 

store_in_datafile 

tell(3,"DATABASE.pro"), 
uiaiperiout  £  VT,  S  ,F ) , 

write("trialperiod("),write(EVT)>write(‘’,"),write(S),write(","), 
write(F),write(")"),  nl, 
fail. 

store_in_datafile 

told(3). 

write_data(PRED,CH,OUTFILENAME,SQ)EVT,Dl,Ml,Yl,D2,M2,Y2) 
tell(CH,OUTFILENAME), 
write(PRED),write("("), 
write(''vp"),write(SQ),write(","), 
write(EVT),  wnte(",["), 
write(Dl),write(","), 
write(M  1  ),write(",''), 
write(Yl),write("],["), 
write(D2),write(","), 
write(M2), write(","), 
write(Y2),write("])"), 
told(CH),  !. 

write_data(PRED,CH,OUTFILENAME,SQ,EVT,DAY  1  ,MO  1 , YR 1 )  :- 
tell(CH.OUTFILENAME), 

'vrite(PRED),write("("), 
write("vp"),write(SQ),write(’V'), 
write(EVT),  WTite(",["), 

write(DAYl),write(","), 
write(M01),write(","), 
writefYRl  ),wnte("])"), 
told(CH),!. 

get.dateCDAY^MCXYR) 

rcad_record('L)ATE), 

myname(DATE.DATELIST), 

convendate(DATELIST,DAY,MO,YR),!. 
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convertdate([D  1  ,D2,SP,M  1  ,M2,M3,SP,Y  1  ,Y2,Y3,Y4],DAY,MO,YR) 
myname(DAYS,[Dl,D2]), 
con  vert(D  A  Y  S ,  number  ,D  AY ) , 
myname(MO,[Ml,M2,M3]), 
validmonth(MO), 
myname(YRS,[Yl,Y2,Y3,Y4]), 
con  vert  (YRS  .number,  YR) , ! . 

convertdate([Dl,SP,Ml,M2,M3,SP,Yl,Y2,Y3,Y4],DAY,MO,YR) 
myname(DA  YS,[D  1  ]), 
convert(D  A  Y  S  ,number,D  A  Y) , 
myname(MO,[M  1  ,M2,M3] ), 
vaIidmonth(MO), 
myname(YRS,[Yl,Y2,Y3,Y4]), 
con  ven(YRS  .number,  YR) , ! . 

convertdateCDATELIST.DAY.MO.YR) 

write("RE-ENTER  DATE  CORRECTLY  -  (ex.  01  jan  1989)"),  nl, 
get_date(DAY,MO,YR). 

get_month(X) 

read_record(X), 

validmonth(X). 

get_month(X) 

read_record(X), 
not  validmonth(X). 

write("You  MUST  enter  a  3  letter  abbreviation  (use  lower  case  only).”), 

nl,write("try  again  -  ”),  nl, 

get_month(X). 

validmonth(jan). 

validmonth(feb). 

validmonth(mar). 

validmonth(apr). 

validmonth(may). 

validmonth(jun). 

validmonth(jul). 

validmonth(aug). 

validmonth(sep). 

validmonth(oct). 

validmonth(nov). 

validmonth(dec). 

dashes 

writeC  . — . - . "),nl.!. 
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deploymentheader 

write("Enter  the  deployment  database  for  each  squadron  based  upon"),nl, 
writeC’the  ORE  period  that  begins  and/or  ends  during  the  schedule"), 
write("  year."),nl, 
dashes. 

get_answer(ANS) 

read_record(  ANS ) , 
valid_answer(ANS),! . 

get_answer(ANS) 

write("That  was  not  a  valid  answer  to  the  question..."), 
writeC'please  type  either  Y  or  N  —  "),nl, 
get_answer(ANS),! . 

valid_answer(ANS) 

affirm_answer(ANS). 

valid_^nswer(ANS) 

neg_answer(ANS). 

affirm_answer(ANS) 

make_char_list(ANS,[AIL]), 
conven(A, lower  rase,A2). 

A2  =  y. 

neg_answer(ANS) 

make_char_list(ANS,[AIL]), 

conven(A,lower_case,A2), 

A2  =  n. 


/*  The  following  was  taken  from  LCDR  Hutson's  database  module.  */ 

/*  The  yearend  number  was  increased  to  account  for  the  extra  months  at  the  end  of  */ 
/*  the  year  that  the  rescheduling  may  add  in  stage  II  (the  month_scheduler  ).  */ 

year_to_schedule:- 
yearbegindate(X), 
yearenddate(Y), 
datetodaynumber(X,X2), 
datetodaynumber(Y,Y2). 
del_all_statements(yearbe  gin/1 ), 
del_all_statements(yearend/l ), 
add_statement(yearbegin(X2),  bottom), 

Y3  is  Y2  +  90, 

add_statement(yearend(Y3), bottom).!. 


squadron!  ist([vp9,vpl9,vp40,vp46,vp47,vp48,vp50]). 
eventnames(itrla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec]). 
teamevents([ewp,ew  n. en.ewc.ewm.ee  ]). 


cvcntcode(ewp,pre_ntpi) 
eventcode(ewn,ntpi). 
eventcode(e  wc  ,pre_mrc  i ) . 
eventcode(ewm,mrci). 
eventcode(en,natops). 
eventcode(ec  .command ) . 
eventcode(trl  a,ready_alert). 
eventcode(trl  b,ready_alert). 
eventcode(tr  1  c,ready_alert). 

sqd_to_number(vp9 ,9 ) . 
sqd_to_number(vp  19, 19). 
sqd_to_number(vp40,40). 
sqd_to_number(vp46,46) . 
sqd_to_.number(vp47 ,47 ) . 
sqd_to_number(  vp4 8,48). 
sqd  _to_number(vp 50,50). 

endmod  /*  module  vpinterface  */  . 
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VPREADYSEARCH  MODULE 

This  module  determines  the  ready-alert  schedule  if  it  is  not  contained  in  the  file 
DATABASE.pro  and  the  user  wants  the  computer  to  compute  the  ready-alert  schedule. 

f*  The  original  code  for  this  module  was  written  by  Dave  Hutson  in  C- Prolog.  It  */ 
t*  has  been  converted  to  M-Prolog.  Capability  to  schedule  3  readies  per  squadron  */ 
f*  has  been  added.  */ 

module  vpreadysearch. 

export  (search  1  /  1  ,  readyevent/4,  build_ready_months  /  l,build_readyevents  /l, 
ready_month/2,  ready_half_month  /  2  ). 

import  (member  /2,  squadronlist  /l,  xbagof  /3,  union  /3,  max  /2,  processtime  /2, 

give_count  /2,  successor_counter  /0,  daynumber_to_date  /2,  month_to_number  /3, 
yearend  /I ,  prettyprint  /I ,  priorevent  /4,  trialperiod  /3,  prerequisite  /4). 

global  (status,trialperiod,prerequisite,priorevent,event,searchl , 
jan,feb,rr.ar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
monday,tuesday,wednesday,thursday,friday,saturday,sunday, weekend, 
trla,trro,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vp  19,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

dynamic(totalreadies/l ). 
dynamic(readyevent/4). 
dvnamic(ready_month/2). 
dynamic(ready_half_month/2). 

/*  search  1  is  the  top  level  predicate  to  make  ready  assignments.  */ 

searchl(ReadyL):- 

r.l.writef'Scheduling  the  Ready  Alerts.... "),nl, 

depthsearch([],ReadvL),!, 

writef'SEARCHl  RESULTS:"),nl, 

processtime("generating  the  Ready  Alerts",Time), 

give_count(search  1  .Time), 

write("(Ready  Alert  Roster):"), nl, 

prettv-printCReadyL), 

build_readyevents(ReadyL), 

build_  ready_months(ReadyL),  !. 

depthsearch(Start.Ans) 

depthsearch2(Start,fStari],fAnslStateiistj;. 

depthsearch2fState,Statelist,Statelist) 
goalreachedl  (State).  1. 
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depthsearch2(State,Statelist,Ans) 
successor  1  (State.Newstate), 
not(member(Newstate,Statelist)), 
successor_counter, 

depthsearch2(Newstate,[Newstate!Statelist],Ans). 

f*  successor  1  predicates  are  used  in  depthsearch  to  assign  readies  to  squadrons.  */ 

f*  One  of  the  next  three  successors  assigns  the  first  ready  of  the  year .  */ 

successorl(L,[event(Sq,trla,S,F)IL]):- 

last_ready_of_previous_year(Sq2,S), 

readyF(S.F), 

pick_nextsquadron(Sq2,Sq), 

preferred_assignment(Sq,S,F). 

successorl(L,[event(Sq,trla,S,F)IL]):- 
last_read  y_of_previou  s_year(S  q2 ,  S ) , 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

altemate_assignmentl(Sq,S,F). 

successorl(L,[event(Sq,trla,S,F)IL]):- 

last_ready_of_previous_year(Sq2,S), 

readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

altemate_assignment2(Sq,S,F). 

successorl(L,[event(Sq,trla,S,F)IL]):- 

readySF(L,Sq2,S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla,_,_),L)), 

preferred_assignment(Sq,S,F). 

successor  l(L,fevent(Sq,tr  la, S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq,trla,_,_),L)), 
altemate_assignment3(Sq,S,F). 

successorl(L,|event(Sq.trla,S,F)IL]): 

readySF(L,Sq2,S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla,_,_),L)), 

altemate_assignmentl(Sq,S,F). 

successor  l(L,[event(Sq,tr  la, S,F)!L]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq.trla,_,_),L)), 
altemate_assignment4(Sq,S,F). 
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successorl(L,[event(Sq,trla,S,F)IL]):- 

readySF(L,Sq2,S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla,_,_),L)), 

altemate_assignment2(Sq,S,F). 

successorl(L,[event(Sq,trlb,S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
member(event(Sq,tr  1  a,S  2,F2),L), 
not(member(event(Sq,trlb,_,_),L)), 

S  >  F2  +  28, 

preferred_assignment(Sq,S,F). 

successorl(L,[event(Sq,trlb,S,F)IL]):- 

readySF(L,Sq2,S,F), 

pick_nextsquadron(Sq2,Sq), 

member(event(Sq,trla,S2,F2),L), 

not(metnber(event(Sq,trlb,_,_).L)), 

S  >  F2  +  28, 

alternate_assignment2(Sq,S,F). 

successorl(L,[event(Sq,trlc,S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick__nextsquadron(Sq2,Sq), 
member(event(Sq,trl  b,S2,F2),L), 
not(member(event(Sq,trlc,_,_),L)), 

S  >  F2  +  28, 

preferred_assignment(Sq,S,F). 

successor  1  (L,fevent(Sq, trie, S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
member(event(Sq,trlb,S2,F2),L), 
not(member(event(Sq,trlc,_,_),L)), 

S>F2  +  28, 

a]temate_assignment2(Sq,S,F). 

successor  1  ([event(Sq2,E,S  1  ,F1  )ILJ,[event(Sq,trla,S,F),event(Sq2,E,S  1  ,F2)iL]):- 
not  (Sq  =  Sq2), 
split_start(Sl,Fl,S,F2), 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla,_,_),L)), 

preferred_assignment(Sq,S,Fj. 
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succcssorl([cvcnt(Sq2,E,Sl,Fl)IL],[cvcnt(Sq,trla,S,F),cvcnt(Sq2,E.Sl,F2)IL]):- 

not  (Sq  =  Sq2), 
spiit_start(S  1  ^F1  ,S,F2), 
readyF(S.F), 

pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq,trl  a,_,_),L)), 
altemate_assignment3(Sq,S,F). 

successorl([event(Sq2,E,Sl,Fl)IL],[event(Sq,trla,S,F),event(Sq2,E,Sl,F2)IL]):- 

not  (Sq  =  Sq2), 
split_start(S  1  ,F  1  ,S,F2), 
readyF(S.F), 

pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq,tr  1  a,_,_),L)) , 
altemate_assignment  1  (Sq,S,F). 

successorl([event(Sq2,E,Sl,Fl)IL],[event(Sq,trla,S,F),event(Sq2,E,Sl,F2)IL]):- 

not  (Sq  =  Sq2), 
split_start(S  1  ,F  1  ,S  ,F2), 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla,_,_),L)), 

altemate_assignment4(Sq,S,F). 

successor  l([event(Sq2,EfS  1, FI  )IL],[evcm(Sq, ul  a, S,F),evem(Sq2,E,S  1,F2)IL]):- 

not  (Sq  =  Sq2), 
split_start(S  1  ,F1  ,S,F2), 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla, 

altemate_assignment2(Sq,S,F). 

/*  The  next  two  rules  assign  a  squadron's  second  ready  alert  if  needed, 
successor  l([event(Sq2,E, SI, FI  )IL],[event(Sq,tr  lb, S,F),event(Sq2,E, SI, F2)IL]):- 

not  (Sq  =  Sq2), 
split_start(S  1  ,F1  ,S,F2), 
readyF(S.F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trlb,_,_),L)), 

preferred_assignment(Sq,S,Fj. 

successor  l([event(Sq2,E,S  1,F1)IL],  [event(Sq,tr  lb, S,F),event(Sq2,E, S1,F2)IL]):- 

not  (Sq  =  Sq2), 
split_start(S  1  ,F  1  ,S,F2), 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

not(memberfevent(Sq,trlb,_,_),L)), 

alternate_assignment2(Sq,S,Fj. 


pick_nextsquadron(LastReadySquadron,NextReadySquadron):- 

squadronlist(SL), 

member(NextReadySquadron,SL), 
not(LastReadySquadron  =  NextReadySquadron). 

/*  Used  by  first  three  successor  1  rules. 

last_ready_of_previous_year(LastReadySquadron,NewStart):- 
xbagof(RF  1  .readyfinishes  1  (tr  1  a,RF  1  ),List  1 ), 
xbagof  (RF2  readyfinishe  s  1  (tr  1  b,RF2)  ,List2) , 
union(Listl,List2,List3), 
max(List3,MF), 

(priorevent(LastReadySquadron,trla,_,MF); 

priorevent(LastReadySquadron,trlb,_,MF)), 

NewStart  is  MF  +  1,  !. 

readyfinishes  1  (ReadyName,ReadyFinish) 

priorevent(Sq,ReadyName,ReadyStart,ReadyFinish). 

readySF(ListofReadies,LastReadySquadron,NewStart,NewFinish):- 

last_ready(ListofReadies,LastReadySquadron,NewStart), 

readyF(NewStart,NewFinish). 

last_ready([event(LastReadySquadron,ReadyName,S,F)IListofReadies], 
LastReadySquadron,NewStart):- 
NewStart  is  F  +  l,daynumber_to_date(NewStart,X),!. 

/*  NewStart  is  first  of  month. 

readyF(NewStart,NewFinish):- 

trialperiod(trl,NewStart,NewFinish),!. 

/*  NewStart  is  middle  of  month. 

readyF(NewStart,NewFinish):- 
trialperiod(trl  ,S,NewFinish), 

S  >  NewStart, 

New'Finish  <  NewStart  +  61,!. 

/*  Ready  is  no  earlier  than  the  third  full  month  after  deployment  and 

/*  ready  is  not  during  ORE  vulnerability  period. 

preferred_assignment(Sq,S,F):- 

prerequisite(Sq,dsO,S2,F2), 

S  >=  F2  +  58, 
prerequisite(Sq.dvl,S3,F3j, 


/*  Ready  is  at  least  one  month  after  post  deployment  safety  standdown,  but  before  */ 

f*  ORE  vumerability  period.  */ 

altemate_assignment  1  (Sq,S,F):- 
prerequisite(Sq,dsO,S2,F2), 

S  >=  F2  +  28, 
prerequisite(Sq,dvl,S3,F3), 

F  <  S3,!. 

f*  Ready  is  no  earlier  than  third  full  month  after  deployment  and  */ 

f*  ready  can  be  during  first  month  of  ORE  vumerability  period.  */ 

altemate_assignment2(Sq,S,F) :  - 
prerequisite(5q,dsO,S2,F2), 

S  >=  F2  +  58, 
prerequisite(Sq  ,dv  1  ,S  3  ,F3) , 

F  <  F3  -  58,!. 

/*  Ready  is  no  earlier  than  third  full  month  after  deployment.  */ 

altemate_assignment3(Sq,S,F):- 
prerequisite(Sq,ds  1  ,S2,F2), 

S  >=  F2  +  58. 

/*  Ready  is  at  least  one  month  after  deployment.  */ 

altemate_assignment4(Sq,S,F):- 

prerequisite(Sq,dsl,S2,F2), 

S  >=  F2  . 

t*  Divides  three  months  between  two  ready  alerts.  */ 

split_start(01dStart,01dFinish, SplitS  tart, SplitFinish):- 
X  is  OldFinish  -  OldStart, 

X  <=  3 1 , 

SplitFinish  is  OldFinish  +  15, 

SplitStart  is  SplitFinish  +  1,!. 

build_readyevents([]):-! . 

build_readyevents(fevent(Sq,E,S,F)IL]):- 

add_statement(readyevent(Sq,E,S,F), bottom), 
build_readyevents(L). 

build_ready_monthsC[]):-!. 

build_ready_months([event(Sq,E,S,F)IL]):- 

daynumber_to_date(S,[DayS, MonthS,  YRS]), 
daynumber_to_date(F,[DayF,MonthF,YRFJ), 

Months  =  MonthF, 

month_to_number(MonthS,YRS,MonthNumber), 

add_statement(ready_month(Sq,MonthNumber)), 

build_ready_months(L). 
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build_ready_months([event(Sq,E,S,F)IL]):- 

daynumber_to_date(S , [Day  S  .MonthS  ,YRS] ), 
daynumber_to_date(F,[DayF,MonthF,YRF]), 
not(MonthS  =  MonthF), 

DayS  =  1, 

month_to_number(MonthS,YRS  .MonthNumberS), 
month_to_number(MonthF,YRF,MonthNumberF), 
add_statement(ready_month(Sq,MonthNumberS )) , 
add_statement(ready_month(Sq,MonthNumberF)), 
add_statement(ready_half_month(Sq,MonthNumberF)), 
build_rcady_months(L) . 

build_ready_months([event(Sq,E,S,F)IL]):- 

daynumber_to_date(S,[DayS,MonthS,YRS]), 
daynumber_to_date(F,[DayF,MonthF,YRF]), 
not(MonthS  =  MonthF), 

month_to_number(MonthS,  YRS  .MonthNumberS ), 
month_to_number(MonthF,YRF,MonthNumberF), 
add_statement(ready_month(Sq, MonthNumberS)), 
add_statement(ready_month(Sq,MonthNumberF)), 
add_statement(ready_half_month(Sq, MonthNumberS)), 
build_ready_months(L). 

goalreachedl([event(Sq,E,S,F)IL]):- 
(E  =  trla;  E  =  trlb;  E  =  trie), 
yearend(YE), 

F  >=  YE-90,  /*  yearend(X)  has  90  days  added  for  the  trialperiods  */ 
list_length(reven:vSq,E,S,F)!L],X), 

add_state...^nt(totalreadies(X)) .  /*  to  be  used  in  goalreached2  */ 
endmod  /*  module  vpreadysearch  */. 


VPMONTHSEARCH  MODULE 

This  module  conducts  the  stage  II  search  for  a  schedule  with  the  least  number  of 
conflicts,  using  the  months  that  are  as  close  to  the  first_pick_months  as  possible.  This 
module  uses  Prof.  Rowe's  modified  A*  program. 


module  vpmonthsearch. 

export  (nopathsearch  /  2,  usedstate  12,  agenda  /3,  agenda_check  12,  search2  /I , 
prunable  /4,  repeatif agenda  /  0,  special_less_than  12,  usedstate_check  /  2, 
cleandatabase  /  0,  measure  work  /  0). 

import  (prettyprint  / 1 ,  deleteone  /  3,  yearbegindate  /I ,  delete  /3,  member  /2, 

singlemember  /2,generate_first_pick  /  0,  display  .statistics  /O,ready_half_month  12, 
earmark  /3,  first_pick_month  /  4,  month_to_number  /  3,  subset  /  2,  ready.month  /  2). 

global  (status,trialperiod, prerequisite, event, dummy, agenda jeady.month,  usedstate, 
jan,feb,mar,apr,mayjun,jul,aug,sep,oct,nov,dec, 
monday,tuesday,wednesday,thursday,friday,saturday,  Sunday  .weekend, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

dynamic(usedstate/2). 

dynamic(beststate/3).  f*  used  in  vpfinalsearch  module  also  */ 

dynamic(agenda/3).  /*  used  in  vpfinalsearch  module  also  */ 

dynamic(counter/l ). 

dynamicfyrb^ '"ir.rronth/l ). 

dynarnic(minstate/3). 

dynamic(min_confiict_reached/0). 

t*  A  STATE  is  a  list  of  <event(Sq,Evt,Mo,Yr)>'s  */ 

search2(ANS) 

generate_first_pick, 
get_start_state([],START_STATE), 
nopathsearch(START_STATE,ANS) . 

/*  The  result  of  get_start_state  is  to  build  a  list  (a  state)  containing  all  the  events  that  are  */ 
/*  first-pick  events,  ie,  there  will  be  conflicts  in  this  state,  but  it  is  a  starting  place.  */ 

get_start_state(S  1,S2):- 

first_pick_monthfSq,Evt,Mo,Yr), 

del_statement(first_pick_month(Sq,Evt,Mo,Yr)), 

month_to_number(Mo,Yr,MN), 

get_start_state(!event(Sq,Evt,MN)ISl],S2). 
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get_start_state(S  1  ,S  1 ). 


nopathsearch(START,STATEl) 

cleandatabase, 

yearbegi:idate([D,M,Y]), 

month_to_number(M,Y,MN), 

add_statement(yrbeginmonth(MN)), 

add_state(START,START), 

repeatifagenda, 

pick_best_state(STATE,SC,SD), 

write("."), 

add_successors(START, STATE, SC, SD), 
agenda(STATE  1  ,C1  ,D  1 ), 
del_statement(agenda(STATE  1  ,C  1  ,D  1 )), 
measurework, !. 

pick_best_state(STATE,SC,SD) 

add_statement(beststate(dummy, dummy  ,dummy),top), 

agenda(S,C,D), 

beststate(S2,C2,D2), 

special_less_than(D,D2), 

del_statement(beststate(S2,C2,D2)), 

add_statement(beststate(S,C,D),top), 

fail . 

/*  The  next  rule  is  optional.  */ 

pick_best_state(STATE,SC,SD) 

countup(agenda(SX,CX,DX),AC), 
write("Item  count  BEFORE  agenda  pruned: "), 
write(AC),nl,fail. 

pick_best_state(STATE,SC,SD) 
bestst3te(S,C  O), 
agenda(S2,C2,D2), 
not(S  =  S2), 
prunable(S2,D2,S,D), 
del_statement(agendaCS2,C2,D2)), 
fail  . 

/*  The  next  rule  is  optional.  */ 

pick_best_state(STATE,SC,SD) 

countupfagenda(SX,CX,DX),AC), 
write("Item  count  AFTER  agenda  pruned:  "), 
write(AC),nl,fail. 
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I*  The  next  rule  is  optional.  */ 

pick_best_state(STATE,SC,SD) 

beststate(S,C,D), 

writeC'BESTSTATE:  COST  =  "),  write(C), 
write("  ,D  =  "),  write(D),  nl, 
prettyprint(S), 
fail . 

pick_best_state(STATE,C,D) 

beststate(STATEl,Cl,Dl), 

D 1  =  dummy, 

del_statement(beststate(STATE  1  ,C  1  ,D  1 )), 
minstate(STATE,C,D),!. 

pick_best_state(STATE,C,D) 
beststate(STATE,C,D), 
del_statement(beststate(STATE,C,D)), 
not(D  =  dummy),  !  . 

/*  ST  is  the  start  state  and  has  the  first-pick  months  in  it .  */ 

add_successors(ST, STATE, C,D) 
goalreached(STATE,C,D), !  . 

add_successors(ST,STATE,C,D) 
rese^min.conflict, 
successor(ST,STATE,NEWSTATE), 
del_all_statements(min_conflict_reached/0), 
add_state(ST,NEWSTATE), 
fail  . 

add_successors(S  1  ,S1  ATE,C,D) 
agenda(STATE,C,D), 
del_statement(agenda(STATE,C,D)), 
add_statement(usedstate(STATE,C),top), 
fail  . 

add_successors(ST, STATE, C,D) 
mi  n_con  fl  ic  t_reac  hed , 
del_statement(min_conflict_reached), 
add_statement(minstate(STATE,C,D),top), 
fail . 

reset_min_conflict 

add_statementfmin_conflict_reached),!. 


add_state(ST,NEWSTATE) 

compute_cost(ST,NEWSTATE,CNEW), !, 
agenda_check(NEWSTATE,CNEW), !, 
usedstate_check(NEWSTATE,CNEW), !, 
cval(NEWSTATE,ENEW), 

D  is  ENEW  +  CNEW, 

add_statement(agenda(NEWSTATE,CNEW*D),  top), ! . 

add_state(ST,NEW  ST  ATE) 

not(compute_cost(CNEW,NEWSTATE)), 
write("Waming:  your  cost  function  failed  on  path  list  "), 
write(PATHLIST),  nl, !  . 

add_state(ST,NE  W  ST  ATE) 

not  eval(NEWSTATE.ENEW), 

write("Waming:  your  evaluation  function  failed  on  state  "), 
write(NEWSTATE),  nl,  !  . 

agenda_check(S,C) 

agenda(5,C2,02), 

del_statement(agenda(S,C2,D2)), !  . 

agenda_check(S,C) 

agenda(S,C2,D2),  !,  fail . 

agenda_check(S,C) . 

usedstate_check(S,C) 
usedstate(S,C2), 
deLstatement(usedstate(S,C2)), 
add_starement(usedstate(S,C),top),  !. 

usedstate_check(S,C) 
usedstate(S,C2),  !, 

usedstate_check(S,C) . 

repeatifagenda  . 

repeatifagenda 

agenda(X,Y,Z),  repeatifagenda . 
specialJess_than(X,dummy) !  . 
special_less_than(X,Y)  X<Y  . 
cleandatabase 

del_all_statements(agenda/3). 
de]_all_statements(usedstate/2 ). 
del_all_statementsfbeststate/3 ). 
del_ali_statements(counter/l ). 
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measure  work 

countup(agenda(X,C,D),NA), 

countup(usedstate(S,C),NB), 

wiite(NA),  write("  incompletely  examined  state(s)  and  "), 
write(NB),  write("  examined  state(s)"),nl, ! . 

countup(P,N) 

add_statement(counter(0)), 
evaluate(P),  /*  call(P),  */ 
counter(K), 

del_statement(counter(K)), 

K2  is  K+l, 

add_statement(counter(K2)) , 
fail . 

countup(P,N) 

ceunter(N), 

del_statement(counter(N)), !  . 

eval(STATE,E) 

count_conflicts(STATE,E),!. 

count_conflicts([],0) . 

count_conflicts(STATE, CONFLICTS)  .- 
find_conflict(STATE, EVENT), 
delete(EVENT,STATE,STATE2), 
count_conflicts(STATE2,CONFLICTS2), 

CONFLICTS  is  CONFLICTS 2  +  1. 

count_conflicts(STATE,0) . 

/*  When  successor  does  returns  it  returns  a  new'  state.  Find-conflict  will  find  the  next  */ 
/*  event  in  conflict  if  backtracked  to.  */ 

successor(StartSTATE, STATE,  [ReSched_E  vent!STATE2]):- 
find_conflict(STATE,  EVENT), 
deleteone(E  VENT, STATE, STATE2), 
get_FP_MN(StartSTATE,  EVENT,  FirstPickMN), 
reschedule(EVENT,FirstPickMN,STATE,ReSched_Event). 

/*  The  goal  is  reached  w-hen  the  number  of  conflicts  is  zero  or  as  low  as  it  w  ill  be.  */ 

goalreacheu(STATE,C,D) 

DiffisD-C, 

Diff  =  0. 

goalreached(STATE.C,D) 

minstatefSTATE,C,Dj, 

add_statement(agenda(STATE,C,D),top). 
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find_conflict(STATE,EVENT) 
member(EVENT, STATE), 
deleteone(E  VENT, STATE, STATE2), 
conflict(STATE2, EVENT). 

conflict(STATE,event(Sq,en,MN)) /*  The  NATOPS  is  too  long  to  sched  w/  RA.  */ 
ready_month(Sq,MN),!. 

conflict(STATE,event(Sq,Insp,MN)) 
ready_month(Sq,MN),!, 
not(ready_half_month(Sq,MN)),! . 

conflict(STATE,event(Sq,en,MN)) 

member(even  t(Sq,  A  nylnsp.MN)  ,S  TA  TE), ! . 

conflict(STATE,event(Sq,ec,MN)) 

member(event(Sq,AnyInsp,MN), STATE), ! . 

conflict(STATE,event(Sq,ewc,MN)) 

member(event(Sq,AnyInsp,MN),  STATE),!, 

not(AnyInsp  =  ewm),!. 

conflict(STATE,event(Sq,ewm>L\)) 

member(event(Sq,AnyInsp,MN), STATE), 
not(AnyInsp  =  ewe),!. 

conflict(STATE,event(Sq,ewp,MN)) 

member(event(Sq,AnyInsp,MN), STATE), 
not(AnyInsp  =  ewn),!. 

conflict(STATE,event(Sq,ewn,MN)) 

member(event(Sq,AnyInsp,MN), STATE), 
not(Any!nsp  =  ewp),!. 

conflict(STATE,event(Sq,lnsp,MN)) 

member(event(AnySq,Insp,MN), STATE).!. 

conflict(STATE,event(Sq,e\^'p,MNT)) 

member(event(Sq,ewn,M]ST2), STATE), 

MN  >  MN2,!. 

conflictfSTATE,event(Sq,ewp,MN )) 

member(eventfSq,ewn,MN2), STATE), 

Diff  is  MN2  -  1, 

MN  <  Diff,!. 

conflictfSTATE,evem(Sq.ewn.MN)) 

member(event(Sq.ewp.MN2), STATE;, 

MN  <  M.N2.I. 
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contlict(STATE,event(Sq,ewc,MN))  :- 

member(event(Sq,ewm,MN2),STATE), 
MN  >  MN2,!. 

conflict(STATE,event(Sq,ewc,MN)) 

member(event(Sq,ewm,MN2),STATE), 
Diffis  MN2  -  1, 

MN  <  Diff,!. 

conflict(STATE,event(Sq,ewm,MN)) 

member(event(Sq,ewc,MN2),STATE), 
MN  <  MN2,!. 


get_FP_MN(StartSTATE,event(Sq,Insp,MN),FirstPickMN) 

singlemember(event(Sq,Insp,FirstPickMN),StartSTATE),!. 

t*  Reschedule  will  not  succeed  if  the  event  can't  be  scheduled  without  confict  during  */ 
/*  window  of  +/-  3  months  of  first-pick-month  */ 

reschedule(event(Sq,Insp,MN), EventFirstPickMN, STATE, event(Sq,Insp, PriorMN)): - 
EventFirstPickMN  =  MN, 

PriorMN  is  EvcntFirstPickMN  -  1 , 
yrbeginmonth(YrBeginMonth), 

PriorMN  >=  YrBeginMonth, 
prerequisite(Sq,dsO,S,F), 
daynumber_to_date(S,[Sday,Smo,S>T]), 
momh_to_number(Smo,Syr,SSMN), 

PriorMN  >  SSMN,  /*  Added  to  prevent  scheduling  during  ssd.  */ 

not(fina_ccnflict(STATE,event(Sq,Insp,  PriorMN))),!. 

re  schedule(evem(Sq,Insp,MN),EventFirstPickMN,  STATE,  event(Sq,Insp.PostMN)):- 
MN  >  EventFirstPickMN  -  2, 

MN  <  EventFirstPickMN  +  1, 

PostMN  is  EventFirstPickMN  +  1, 
earmark(Sq,lnsp,  [Day, Month,  Yearl), 

me  h  fo_number(Month,Year,DDM),  /*  Drop-Dead  Month  */ 

Poi  =  DDM, 

notv.  o  conflict(STATE,event(Sq,Insp,PostMNj)j,!. 

reschedule(event(Sq,Insp,MN  j. Even  tFirstPickMN,  STATE, e’  ent  (Sq.Insp.  PostMN) 

MN  >  EventFirstPckMN  -  2, 

MN  <  EventFirstPickMN  +  1. 

PostMN  is  EventFirstPickMN  +  1, 

not  earmark(Sq,Insp,_).  /*  case  of  no  earm.ark  input  */ 

not(find_conflict(STATE,event(Sq,Insp,PostMN))),!. 


reschedule(event(Sq,Insp,MN),EventFirstPickMN,STATE,event(Sq,Insp,PriorMN)):- 
MN  >  EventFirstPickMN  -  2 , 

MN  <  EventFirstPickMN  +  2, 

PriorMN  is  EventFirstPickMN  -  2, 
yrbeginmonth(Y  rBeginMonth), 

PriorMN  >=  YrBeginMonth, 

prerequisite(Sq,dsO,S,F), 

daynumber_to_date(S,[Sday,Smo,Syr]), 
month_to_number(S  mo,S  yr,S  S  MN) , 

PriorMN  >  SSMN, 

not(find_conflict(STATE,event(Sq,Insp,PriorMN))),!. 

re  schedule(event(Sq,Insp,MN), EventFirstPickMN, STATE,event(Sq,Insp,PostMN)):- 
MN  >  EventFirstPickMN  -  3  , 

MN  <  EventFirstPickMN  +  2, 

PostMN  is  EventFirstPickMN  +  2, 
earmark(Sq,Insp, [Day  .Month, Year]), 

month.  to_number(Month, Year, DDM),  l*  Drop-Dead  Month  .  */ 

PostMN  <=  DDM, 

not(find_conflict(STATE,event(Sq,Insp,PostMN))),!. 

re  schedule(event(Sq,Insp,MN),  EventFirstPickMN,  STATE,event(Sq,Insp,  PostMN)) 

MN  >  EventFirstPickMN  -  3  , 

MN  <  EventFirstPickMN  +  2, 

PostMN  is  EventFirstPickMN  +  2, 

not  earmark(Sq,Insp,_),  /*  case  of  no  earmark  input  */ 

not(find_conflict(STATE,event(Sq,Insp,PostMN))),!. 

re  schedule(event(Sq,Insp,MN), EventFirstPickMN, STATE,event(Sq,Insp,PriorMN)):- 
MN  >  EventFirstPickMN  -  3  , 

MN  <  EventFirstPickMN  +  3, 

PriorMN  is  EventFirstPickMN  -  3, 

PriorMN  =/=  MN, 

yr  be  ginmonth  (YrBeginMonth), 

PriorMN  >=  YrBeginMonth, 
prerequisitefSq.dsO,S,Fj, 
daynumber_to_date(S,[Sday,Smo,Syr]), 
month_to_number(Smo, Syr, SSMN), 

PriorMN  >  SSMN, 

non  find_conflict(STATE,event(Sq,Insp,  PriorMN))),!. 

re  schedule(event(Sq,Insp,MN),  Even  tFirstPickMN,  STATE, event(Sq.lnsp,  PostMN)) 
PostMN  is  EventFirstPickMN  +  3, 

PostMN  =/=  MN, 

e  arm  ark(Sq,Insp,[  Day, Month,  Year)), 

month.to.numberfMonth,  Year, DDM).  /*  Drop-Dead  Month  */ 

PostMN  <=  DDM, 

not(find.conflict(STATE,event(Sq,Insp, PostMN))). .. 


63 


reschedule(event(Sq,Insp,MN),EventFirstPickMN,STATE,event(Sq,Insp,PostMN)):- 
PostMN  is  EventFirstPickMN  +  3, 

PostMN  =/=  MN, 

not  earmark(Sq,Insp,_),  /*  case  of  no  earmark  input  */ 
noi(find_conflici(STATE,event(Sq,Insp,PostMN))),!. 

/*  If  ewe  or  ewp  are  in  conflict  then  put  them  in  month  with  real  inspection  if  it  is  not  in 
f*  conflict . 

reschedule(event(Sq,ewc, MN),_, STATE, event(Sq,ewc,MNl)):- 
singlemember(event(Sq,ewm,MN  1 ), STATE), 

MN  =/=  MN  1 , 

not  fxnd_conflict(STATE,event(Sq,ewm,MNl)), !. 

reschedule(event(Sq,ewp,MN),_,STATE,event(Sq,ewp,MNl)):- 
singlemember(event(Sq,ewn,MNl),STATE), 

MN  =/=  MN  i , 

not  find_<~o;iflict(STATE,event(Sq,ewn,MNl)), !. 
compute_cost(STARTSTATE,[],0):-  !. 

compute_cost(STARTSTATE,[event(Sq,Insp,MNT)ISTATE],Cost) 
singlemember(event(Sq,Insp,BestMonth),STARTSTATE), 

Diff  is  MN  -  BestMonth, 
cost_function(Diff,Cost  1 ), 
compute_cost(STARTSTATE,STATE,Cost2), 

Cost  is  Costl  +  Cost2. 

cost_function(0,0). 
cost_function(l,l). 
cost_function(2,2). 
cost_function(3,3). 
cost_function(- 1 ,0.5e0). 
cost_function(-2, 1 .5e0). 
cost_function(-3,2.5e0). 

/*  Prunable  determines  degree  of  optimization  by  purging  agenda  of  selected  items.  */ 

prunable(STATE,D,BESTSTATE,Dbest) 

k_factor(K). 

D  >  Dbest  +  K,  !. 

prunablefSTATE,D,BESTSTATE,Dbest) 

check_permutation(STATE,BESTSTATE),!. 

check_permutation(STATEl,STATE2) 
subsetfSTATEl  ,STATE2), 
subset(STATE2,STATEl ),!. 

k_factor(0;. 

endmod  /*  vpmonthsearch  */  . 
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*  p 


VPFIRSTPICK  MODULE 

This  module  computes  the  first_pick_month  for  each  event  to  be  scheduled. 


module  vpfirstpick . 

export(  generate_first_pick  /  0,  first_pick_month  /  4,  month_to_number  /  3, 
number_to_month  /  3 ). 

import(  eventnames  /  1,  squadronlist  /  1,  prerequisite  /  4,datetodaynumber/2, 

daynumber_to_date  fl,  earmark  /3,  member  /2,  priorevent  /  4,  yearbegindate/  1, 
yearenddate  /  1,  yea  rend  /  1). 

global  (status,trialperiod,prerequisite, priorevent, 

jan,feb,mar,apr,mayjun,jul,aug,sep,oct,nov,dec, 
monday,tuesday, Wednesday, thursday,friday,saturday, Sunday, weekend, 
month_to_number  /  3,  number_to_month  /  3  ). 
priorevent  /  4,  yearbegindate/  1,  yearenddate  /  1,  yearend  /  1). 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

dynamic(first_pick_month/4). 

dynamic(tot,evt_count/l ). 

generate_fust_pick 

write  ("Finding  the  'first-pick'  month  for  each  inspection  nl,nl, 

evenmames(InspectionList), 

member(Inspection,InspectionList), 

squadronlist(SqList), 

member(Sq,SqList), 

evt_ok_to_sched(Sq. Inspection), 

generate_first_pick_month(Sq, Inspection), 

fail. 

generate_first_pick 

v.nte("The  'first-pick'  months  follow:”), nl, 

first_pick_month(Sq,Insp,MO,YR), 

write(Sq),write_tab(7), 

write(Insp),write_tab(12). 

v.xite(MOj,write_tab(  17). 

write(YR),nl, 

fail. 


generate_first_pick  . 


/*  Check  if  event  has  already  been  conducted  during  the  current  training  cycle.  */ 

evt_ok_to_sched(Sq,Insp) 
evt_not_ready(Sq,lnsp), 
not(priorevent(Sq,Insp,Start  .Finish)),!. 

evt_ok_to_sched(Sq,ewp) 

priorcvent(Sq,ewn,StartDate,PEDN), 
earmark(Sq,ewn,EMDate), 
datetodaynumber(EMDate  F.MDN) . 
prerequisite(Sq,drl  .DrSDN, DrFDN), 
yearend(YE), 

PEDN  <=  DrSDN, 

EMDN  <=  YE, 

EMDN  >=  DrFDN, !. 

evt_ok_to_sched(Sq,Insp) 
evt_not_ready(Sq,Insp), 
priorevent(Sq,Insp,StartDate,PEDN), 
earmark(Sq,Insp,EMDate) , 
datetodaynumber(EMDate,EMDN), 
prerequisite(Sq,drl,DrSDN,DrFDN), 
yearend(YE), 

PEDN  <=  DrSDN, 

EMDN  <=  YE, 

EMDN  >=  DrFDN,  !. 

evt_not_ready(Sq,Insp) 
not(Insp  =  trla), 
not(Insp  =  trlb), 
not(Insp  =  trie),!. 

generate_first_pick_month(Sq,ewn) 

earmark(Sq,ewn, [Day, Month,  Year]), 
month_to_number(Month,Year,MN), 

MN2  is  MN-0, 

year_begin_monthjnum(YB), 

MN2  >=  YB, 

year_end_month_num(YE), 

MN2  <=  YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ewn,Monih2,Year2)),!. 
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generate_first_pick_month(Sq,ewp) 

earmark(Sq,ewn,[Day,Month,Year]), 

month_to_number(Month,Ycar,MN), 

MN2  is  MN-1, 

year_begin_month_num(YB), 

MN2  >=  YB, 

year_end_month_num(YE), 

MN2  <=  YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ewp,Month2,Year2)),!. 

generate_first_pick_month(Sq,ewc) 

prerequisite(Sq,drl,Startdays,Finishdays), 
daynumber_to_date(Startdays, [Day  .Month, Year]), 
month_to_number(Month,Year,MN), 

MN2  is  MN-4, 

earmark(Sq,ewc,[Day3,Month3,Year3]), 

month_to_number(Month3,Year3,MN3), 

MN2  <=  MN3, 
year_begin_month_num(YB), 

MN2  >=  YB, 

year_end_month_num(YE), 

ivn  ^  a.  'v —  1  L* , 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ewc,Month2,Year2)),!. 

generate_first_pick_month(Sq,ewc) 

earmark(Sq, ewe, [Day  .Month, Year]), 
month_to_number(Month,Year,MN), 
year_begin_month_num(YB), 

MN  >=  YB, 

year_end_month_num(YE), 

MN  <=  YE, 
inc_tot_evt_count, 

add_statement(first_pick_month(Sq, ewe, Month,  Year)),!. 
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generate_first_pick_month(Sq,ewm) 

prerequisite(Sq,drl,Startdays,Finishdays), 

day  number_to_date(S  tartday  s,  [Day  .Month ,  Y  ear] ) , 

month_to_number(Month,Year,MN), 

MN2  is  MN-3, 

earmark(Sq,ewm,[Day3,Month3,Year3]), 

month_to_nurnber(Month3,Year3,MN3), 

MN2  <=  MN3, 
year_begin_month_num(YB), 

MN2  >=  YB, 

year_end_month_num(YE), 

MN2  <=  YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ewm,Month2,Year2)), 

generate_fxrst_pick_month(Sq,ewm) 

earmark(Sq,ewm,[Day,Month,Year]), 
month_to_number(Month,Year,MN), 
year_begin_month_num(  YB ) , 

MN  >=  YB, 

year_end_month_num(YE), 

MN  <=  YE, 
inc_tot_evt_cou  nt , 

add_statement(first_pick_month(Sq,ewm, Month,  Year)),!. 

generate_first_pick_month(Sq,ec) 

prerequisite(Sq,drl,Standays,Finishdays), 
daynumber_to_date(Standays, [Day, Month, Year]), 
month_to_number(Month,Year,MN), 

MN2  is  MN-2, 

earmark(Sq,ec,[Day3,Month3,Year3]), 

month_to_number(Month3,Year3,MN3), 

MN2  <=  MN3, 
year_begin_month_num(YB), 

MN2  >=  YB, 

year_end_month_num(YE), 

MN2  <=  YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pirk_month(Sq,ec,Month2,Year2)),!. 

generate_first_pick_month(Sq,ec) 

earmark  (Sq,ec,  [Day,  Month,  Year]), 

month_to_number(Month,Year,MN), 

year_begin_month_num(YB), 

MN  >=  YB, 

year_end_month_num(YEj, 

MN  <=  YE, 
inc_tot_evt_count. 

add_statenient(first_pick_month(Sq,cc, Month,  Year)),!. 


f*  Next  rule  in  case  no  earmark  is  input  for  Cl. 

generate_first_pick_month(Sq,ec) 

prerequisite(Sq,drl,Startdays,Finishdays), 

daynumber_to_date(Startdays,[Day,Month,Year]), 

month_to_number(Month,Year,MN), 

MN2  is  MN-2, 

ye  ar_begin_mon  th_nu  m(  YB ) , 

MN2  >=  YB, 

year_end_month_num(YE), 

MN2  <=  YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ec,Month2,Year2)),!. 

generate_first_pick_month(Sq,en) 

prerequisite(Sq,drl,Startdays,Finishdays), 
daynumber_to_date(S  tartdays,  [Day  .Month  .Year]), 
month_to_number(Month,Year,MN), 

MN2  is  MN-7, 

earmark(Sq,en,[Day3,Month3,Year3j), 

rnonth_to_number(Month3,Year3,MN3), 

MN2  <=  MN3, 
year_begin_month_num(YB), 

MN2  >=  YB, 

year_end_month_num(YE), 

MN2  <=  YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,en,Month2,Year2)),!. 

generate_first_pick_month(Sq,en) 

earmark(Sq,en,[Day,Month,Year]), 

month_to_number(Month,Year,MN), 

year_begin_month_num(YB), 

MN  >=  YB, 

vear_end_month_num(YE), 

MN  <=  YE, 
inc_tot_evt_count, 

add_statement(first_pick_month(Sq.en, Month,  Year)),!. 

month_to_number(Month,Yeax,MonthNumber) 

month_num(Month,MN), 

MonthNumber  is  MN  +  (Year*  12). 

number_to__month(Month,Year,MonthNumber) 

Year  is  MonthNumber  div  12. 

MN  is  MonthNumber  mod  12, 
month_num(Month,MNj. 


month_num(jan,0). 

month_num(feb,  1 ) . 

month_num(mar,2). 

month_num(apr,3). 

month_num(may,4). 

month_num(jun,5). 

month_num(jul,6). 

month_num(aug,7). 

month_num(sep  ,8 ) . 

month_num(oct,9). 

month_num(nov,10). 

month_num(dec,l  1). 

year_begin_month_num(MN) 

yearbegindate([Day, Month, YR]), 
month_to_number(Month,YR,MN). 

year_end_month_num(MN) 

yearenddate([Day , Month,  YR]), 
month_to_number(Month,YR,MN). 

inc_tot_evt_count 

tot_evt_count(X), 

Yis  X+l, 

del_statement(tot_evt_count(X)), 

add_statement(tot_evt_countOt’)),!. 

inc_tot_evt_count 

add_statement(tot_evt_count(l)),!. 

endmod  /*  module  vpfirstpick  */  . 
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VPFINALSEARCH  MODULE 
This  module  does  the  stage  HI  search  for  the  optimum  final  schedule. 


module  vpfrnal  search. 

export  (generate_final_schedule  /3 ). 

import  (max  /  2,  yearbegin  /  1,  datetodaynumber  /  2,  singlemember  /  2, 

number_to_month  /  3,  daysofmonth  /  2,difFerence_between_dates2  /  3,  agenda  /  3, 
readyevent/4,prettyprint  / 1 ,  database_conversion  /0,  cleandatabase  /  0, 
repeatifagenda  /  O.squadronlist  /  1 ,  measurework  /  0,  agenda_check  /  2, 
usedstate_check  /  2,  successor_counter  /  0,  sortmonthevent  /  2, 
special_less_than  /2,prunable  /4,  prerequisite  /4,  trialperiod  13,  member  /2, 
sortevent  /2,priorevent  /  4,  open  /  2,  tell  /  2,  told  /  1,  teamevents  /l,  yearend  /l). 

gloabal  (jan.feb.mar,  apr,may,jun  jul,aug,sep,oct,nov,dec, 

monday,tuesdav,wednesday,thursday,friday, Saturday, sunday.weekend, 
status, trialperic  i, prerequisite, event, dummy .usedstate, agenda,  readyevent, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vp  1 9,vp40,vp46,vp47,vp48,vp50). 

local  (state). 

/*$eject*/ 

body. 

dynamic(totaLevents/l ). 

dynamic(beststate/2). 

dy  namic(monevt/3 ) . 

dynamic(sccsrfound/0). 

dynamic(min_cost_reached/Oj. 

dynamicfoldcost/l ). 

dvnamic(index/l). 

dynamic(state/2). 

dynamic(cost/2). 

dvnamic(scost/3 ). 

dynamic(tcost/3). 

generate_final_schedule(StartList,MontliList,FinalList) 

v.Tite("Generating  the  final  schedule . "),nl, 

listJengthfStartList.Ll ). 
list_length(MonthList,L2). 

Total  is  LI  +  L2, 

add_statement(tot:il_events(Tota!)), 

sortmonthevent(MonthList,SortedList), 

assen_monevts(SortedList). 

hillclimbsrch(StanList.FinalList). 


assert_monevts(n )  • 

assert_monevts([evem(SQJNSP,MN)ILISTJ) 

add_statement(mone  vt(  S  Q,IN  S  P,MN)  .bottom) , 
assert_monevts(LlST). 

hillclimbsrch(START, STATE) 
cleandatabase2, 
resctindcx, 
index(IndexS), 

initialize_start(lndexS  .START) , 

add_state2(start,IndexS), 

repeatifagenda, 

pick_best_state2(INDEX), 

write("."), 

del_all_statements(oldcost/l ), 

add_statement(oldcost(dummy)), 

add_successors2(INDEX), 

del_all_statements(sccsrfound/0). 

agenda(INDEX.C.D), 

del_statement(agenda(INDEX,C,D)), 

state(INDEXt  STATE), 

measurework. 


pick_best_state2(TNDEX) 
agenda(LNDEX,C,D) . 

add_successors2(INDEX) 

goalreached2(INDEX),  +. 

add_successors2(INDEX) 

del_all_statements(sccsrfound/0), 
de]_all_statements(min_cost_reached/0), 
state(INDEX, STATE), 
successor2a(STATE,NewSTATE), 
incindex, 

index(NewINDEX), 

add_statement(state(NewINDEX,NewSTATE)), 

check_cost(IKDEX,NewINDEX), 

add_state2(LVDEX,NewINDEX), 

successor_counter, 

add_successors2(INDEX) 

del_statement(agendaf  INDEX,  C,D)), 
add_statement(  usedstate  (INDEX  ,C )), 


incindex:- 

index(OLDI ), 

deLstatement(index(OLDI )), 
Newl  is  OLDI  +  1 , 
add_statement('index(NewJ)).+. 
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rcsetindex 

del_all_statements(index/l), 

add_statement(index(0)),+. 

del_dynamics(INDEX) 

del_statement(state(IND  EX, STATE)). 

initialize_start (INDEX, START) 

add_statement(state(INDEX ,  ST  ART)), 
add_statement(cost(INDEX,0)), 
init_scost(INDEX), 
init_tcost(INDEX),+. 

init_scost(INDEX) 

squadronlist(SQLIST), 

member(SQ,SQLIST), 

add_statement(scost(INDEX,SQ,0)). 

fail. 

init_scost(INDEX)  !. 

init_tcost(TNDEX) 

teamevents(EVTLIST), 

member(EVT,EVTLIST), 

add_statement(tcost(INDEX,EVT,0)), 

fail. 

init_tcost(INDEX)  !. 

cost2 (INDEX, NEWINDEX.NCost) 

state(NEWINDEX,[event(SQ,EVT,S,F)ISTATEJ), 

teamevenis(EVTLIST), 

sin  glemember  (E  VT,E  VTLI  ST) . 

copycost(INDEX,NEWINDEX), 

squadroncost(SQ,[event(SQ,EVT,S,F)!STATE],SCOST), 

scost(NEWTNDEX.SQ.X). 

del_statement(scost(NEWINDEX,SQ,X)), 

add_statement(scost(NEWINDEX,SQ,SCOST)), 

teamcost(EVT,fevent(SQ.EVT,S,F)ISTATE].TCOST),  /*  EVT  is  a  teamevt 

tcost(NEWINDEX.EVT,X  1 ), 
del_statemem(tcost(NEWINDEX.EVT,X  1 )), 
add_statement(tcost(NEWINDEX,EVT,TCOST)), 
computecost(NEWINDEX,NCost),  +. 


cost2(INDEX,NEWINDEX,NCost) 

state(NEWINDEX,[event(SQ,EVT,S,F)ISTATE]), 
copycost(INDEX,NE  WINDEX), 
squadroncost(SQ,[event(SQ,EVT,S,F)ISTATE],SCOST), 
scost(NE  WINDEX, SQ,X), 
de  l_statement(  scost(NE  WINDEX ,  S  Q  ,X ) ) , 
add_statement(scost(NEWINDEX,SQ,SCOST)),!, 
computecost(NEWINDEX,NCost),  +. 

copycost(INDEX,NEWINDEX) 

copyscost(INDEX,NE  WINDEX), 
copytcost(INDEX,NE  WINDEX), ! . 

copyscost(ENDEX,NE WINDEX) 
squadronlist(SQLIST), 
member(SQ,SQLIST), 
scost(INDEX,SQ,SCOST), 
add_statement(scost(NEWINDEX,SQ,SCOST)), 
fail . 

copyscost(INDEX,NEWINDEX) !. 

copytcost(INDEX,NE WINDEX) 
teamevents(EVTLIST), 
member(EVT,EVTLIST), 
tcost(INDEX,EVT,TCOST), 
add_statement(tcost(NE  WINDEX, EVT.TCOST)), 
fail . 

copytcost(INDEX,NEWINDEX ) !. 

computecost(INDEX,Cost) 
squadronlist(SQLIST), 
compscost(INDEX,SQLIST, SCOST), 
teamevents(EVTLIST  >,! , 
comptcostdNDEX,EVTLIST,TCOST), 

Cost  is  SCOST  +  TCOST. 

compscost(INDEX,[],0)  !. 

compscost(INT) EX, [SQISQLIST], SCOST) 
scost(INDEX,SQ,Costl ), 
compscost(INDEX,SQLIST,Cost2), 

SCOST  is  Cost!  +  Cost2. 

comptcost(INDEX,[ ],0)  !. 

c»mptcostaNDEX,[EVTIEVTLISTJ, TCOST) 
tcost(INDEX,EVT,Costl). 
comptcost(INDEX,EVTLIST,Cost2). 

TCOST  is  Cost!  +  Cos:2. 
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squadroncost(Sq,S  tate.Scost) :  - 

bag_of(Occurance,groupsquadron(Sq,State,Occurance),List), 

sortevent(List,[XISortedList]), 

spiece_cost(start,X,Scost2x), 

scost2x([XISortedList],Scost3), 

Scost  is  Scost2x  +  Scost3. 

teameost(Eventname,State,Tcost):- 

teamevents(TE), 

member(Eventname,TE), 

bag_of(Occurance,groupteam(Eventname, State, Occurance),List), 

sortevent(List,SortedList), 

tcost2x(SortedList,Tcost). 

check_cost(INDEX,NewINDEX) 

getcosts(TNDEX,NewINDEX,NewC,01dC), 

special_less_than(NewC,01dC), 

del_statement(oldcost(0]dC)), 

add_statement(oldcost(NewC)), 

remove_agenda_item(01dC), 

check_cost(INDEX,NewINDEX) 

add_statement(min_cost_reached),  - .  /*  is  same  as  "!,fail"  */ 

remove_agenda_item(01dC) 

OldC  =  dummy. 

remove_agenda_item(01dC) 

agenda(I,01dC,D),  /*  Remove  the  higher  cost.  *i 

del_statement(agenda(I,01dC,D)). 

getcosts(INDEX,NewINDEX,Ne\vC,01dC):- 

oldcost(OldC), 

cost2(lNDEX,NewINTDEX,NewC),+. 

add_statc2(start,NewINDEX) 
state(NewINDEX, STATE), 
eval2(STATE,Enew), 

D  is  Enew, 

add_statement(agenda(NewINDEX,0,D)),  +. 

add_state2(INDEX,NewLNDEX) 

oldcost(Cnew),!, 

agenda_check(NewINDEX,Cnew),  !, 
usedstate_check(NewINDEX,Cnew).  !. 
state  (N'ev.  INDEX. NewSTATE), 
evaI2(NewSTATE,Enew), 

D  is  Enew  +  Cne*, 

add_statement(agenda('NewINDEX,Cnew,Dt),  +. 


add_state2(INDEX,NewINDEX) 
state(NewINDEX,NewSTATE), 
not  eva!2(NewSTATE,Enew), 

writeC’Waming:  your  evaluation  function  failed  on  state  "), 
write(NewINDEX),  nl,  +. 

goalreached2(INDEXj 

state(INDEX, STATE), 

total_events(Total), 

list_length(STATE,Length),!, 

Total  =  Length  . 

/*  For  successor2a  to  pick  the  events  chronologically  monevt's  mast  be  asserted  into  */ 

/*  the  data  base  correctly.  */ 

successor2a(STATE,NewSTATE) 
monevt(SQ,ec,MN), 
not  member(event(SQ,ec,S,F),STATE), 
successor2(SQ,ec,MN,  STATE,  NewSTATF),+. 

successor2a(STATE,NewSTATE) 
monevt(SQ,EVT,MN), 
not  member(event(SQ,E  /T,S,F), STATE),!, 
writef'adding  ”), write (SQ), write("  "),write(EVT),nl, 
successor2(SQ,  EVT.MN,  STATE,  NewSTATE). 

successor2(SQ,ec,ViN, STATE,fevent(SQ, ec, Start, Finish)!STATEj) 
prerequisite(SQ,dr  1  ,DS,DF), 

IdealStan  is  DS  -  45, 
number_to_month(MO,YR,MN). 
datetoda/number((  l,M0,YR],\10Start), 
bag_of(S,validstan(IdealStan,MOStart,S),SList), 
max(SList, Start), 

trialpenod(ec, Start, Finish), +.  /*  Cut  used  because  there's  only  one  choice.  */ 

successor2(SQ,ewp,MN.STATE,fevent(SQ.ewp,Start,Fin'<'>!STATE]) 

monevt(SQ.ewn,MN;,  /*  Find  e*’p  and  ewn  in  same  month.  */ 

not  sccsrfound. 

get_nioinfo(MN.MOStan,MOEnd), 
tnalpenr  Jdev\  p.  Stan, Finish ). 
not  min_  .ost_reached. 

Finish  >=  MOStart. 

Stan  <  MCStan  >-  7. 

not  readvc  iiflicti'SQ.Start.Finish  i. 

not  realeventconflictiewp. Stan. F'inish,. STATE i. 

add,  stt  ’emenn  sccsrtound ). 


successor2(SQ,ewn,MN, STATE, [event(SQ,ewn,Start,Finish)ISTATE]) 

monevt(SQ,ewp,MN),  /*  Find  ewp  and  ewn  in  same  month.  */ 

not  sccsrfound, 

get_moinfo(MN,MOStart,MOEnd), 
trialperiod(ewn, Start, Finish), 
not  min_cost_reached, 

Stan  >  MGStart  +11, 

Stait  <=  MOEnd, 

not  readyconflict(SQ, Start, Finish), 

not  realeventconflict(ewn,Start.Finish,STATF), 

add_statement(sccsrfound). 

successor2(SQ, ewe, MN, STATE, [event(SQ, ewe, Start,Finish)ISTATE]) 

monevt(SQ,ewm,MN),  /*  Find  ewe  and  ewm  in  same  month.  */ 

not  sccsrfound, 

get_moinfo(MN,MOS  tart,M  OEnd) , 
trialperiod(ewc, Start, Finish), 
not  min_cost_reached, 

Finish  >=  MOStart, 

Start  <  MOStart  +  7, 

not  readyconflict(SQ, Start, Finish), 

add_statement(sccsrfound). 

successor2(SQ,ewm,MN,STATE,[event(SQ,ewm,Start,Finish)ISTATE]) 

monevt(SQ,ewc,MN),  /*  Find  ewe  and  ewm  in  same  month.  */ 

not  sccsrfound, 

get_moinfo(MN,MOStart, MOEnd), 
trialperiodCewm,  Start,  Finish), 
not  min_cost_reached, 

Stan  >  MOStart  11, 

Stan  <=  MOEnd, 

not  readyconflict(SQ, Stan, Finish), 
add_statement(  sccsrfound ) . 

successor2(S Q, INS P,MN, STATE, [event(SQ,INSP, S tart, Finish)ISTATE]  i 
not  sccsrfound. 

get_moinfo(  MN. MOStan. MOEnd ), 
trialperioddNSP, Start, Finish), 
not  min_cost_reached. 

Finish  >=  MOStart, 

Start  <=  MOEnd  , 

not  readyconflict(SQ. Start, Finish), 

not  otherevtconfiict(SQ,Start,Fimsh, STATE;, 

not  realcventconflictflNSP.Start, Finish, STATE). 

add_statement(  sccsrfound  j. 


/*  The  next  rule  is  the  'catch-all'. 

successor2(SQ,INSP,MN,STATE,[event(SQ,INSP,Start,Finish)ISTATE]) 
get_moinfo2(MN,MOStart,MOEnd), 
trialperiod(INSP, Start, Finish), 
not  min_cost_reached, 

Finish  >=  MOStan, 

Start  <=  MOEnd . 

get_tnoinfo(MN,MOS  tart,MOEnd) 
number_to_month(MO,YR,MN), 
datetodaynumber([  1  ,MO,YR]  .MOStart) , 
daysofmonth(MO,LastDay), 
datetodaynumber(fLastDay,MO,YR],MOEnd),+. 

get_moinfo2(MN,MOStart,MOEnd) :  - 

not  sccsrfoundy*  prevents  using  rule  if  1st  rule  worked  */ 
number_to_month(MO,YR,MN), 
datetodaynumber([  1, MO,  YR], MOStart) 
daysofmonth(MO,LastDay), 
datetodaynumber([LastDay,MO,YR], MOEnd), +. 

validstart(Ideal, MOStart, Start) 
trialperiod(ec, Start, F), 

Start  <=  Ideal, 

Start  >=  MOStart. 

readyconflict(SQ,S,F) 

readyevent(SQ,E,RS,RF), 

RS  <=  S, 

RF  >=  S. 

readyconflict(SQ,S,F) 

readyevent(SQ,E,RS,RF), 

RS  <=  F, 

RF  >=  F. 

otherevtconFiict(SQ,S,F, STATE) 

member(event(SQ,E,S  1,F1  ),STATE^, 

SI  <=  S, 

FI  >=  S. 

otherevtconflictfSQ.S.F, STATE) 

member(event(SQ,E,S  1  ,F1 ), STATE), 

SI  <=  F, 

FI  >=  F. 

otherevtconflictfSQ.S.F, STATE  i 

member(event(SQ.E.S  1  ,F1 ), STATE), 

SI  >=  S, 


realeventconflict(ewp,Start,Finish,STATE):- 
member(event(SQ,ewn,S  1  ,F  1 ), STATE), 

SI  <=  Stan, 

FI  >=  Stan. 

realeventconflict(ewp,Stan,Finish,STATE):- 

member(event(SQ,ewn,Sl,Fl),STATE), 

SI  <=  Finish, 

FI  >=  Finish. 

realeventconflict(ewn,Stan,Finish,STATE):- 

member(event(SQ,ewp,Sl,Fl),STATE), 

SI  <=  Stan, 

FI  >=  Stan. 

realeventconflict(ewn,Stan,Finish,STATE):- 

member(evcnt(SQ,ewp,Sl,Fl),STATE), 

SI  <=  Finish, 

FI  >=  Finish. 

reaJeventconflict(_,Stan, Finish, STATE):-  fail. 

groupsquadron(Sq, State, event(Sq,E,S,F)):- 
member(event(Sq,E,S,F), State). 

groupteain(Eventname, State, event(Sq.Eventname,S,F)):- 
member(event(Sq,Eventname,S,F), State). 

/*  Squadron  cost .  */ 

scost2x([X,YILJ,Cost)> 

spiece_cost(X,Y,Cost2), 

scost2x([YIL],Cost3), 

Cost  is  Cost2  +  Cost?. 

scost2x([X],0). 

scost2x([],0j. 

/*  Team  cost  */ 

tcost2x([X,YIL],Cost):- 

tpiece_cost(X,Y,Cost2 ). 
tcost2x([  YIL],Cost?j, 

Cost  is  Cost2  +  Cost?. 

tcost2x  ( [X  J  .0;. 

tcost2x([  |,0). 


tpiece_cost(event(Sql  ,E  1  ,S  1  ,F1  ),event(Sq2,E2,S2,F2),Cost):- 
D  is  S2  -  FI, 
costfn3(D,Cost). 

^**************************  Poiiow-on  EVENT  ***************************/ 
/*  First  argument  occurs  BEFORE  next  argument  and  second  argument  on  or  after  */ 
t*  schedule  begin  date  and  this  is  used  in  squadron  and  team  costs.  */ 

/*  Cost  for  related  events  has  min  at  delay  =  21.  */ 

spiece_cost(event(Sq,ewp,Sl,Fl),event(Sq,ewn,S2,F2),Cost):- 
D  is  S2  -  FI  , 
costfnl(D,Cost). 

spiece_cost(event(Sq,ewc,Sl,Fl),event(Sq,ewm,S2,F2),Cost):- 
D  is  S2  -  FI  , 
costfnl(D,Cost). 

/*  Cost  for  unrelated  events  has  min  at  delay  =  21.  */ 

spiece_cost(event(Sql,El,Sl,Fl),eveni(Sq2,E2,S2,F2),Cost)- 
D  is  S2  -  FI, 

D  <  180, 
costfn2(D,Cost). 

/*  The  next  rule  is  used  when  D  >  180  to  discount  gaps  caused  by  deployments.  */ 
spiece_cost(event(Sq  1  ,E  1  ,S  1  ,F1  ),event(Sq2,E2,S2,F2),0). 

^* *************************  pjRS'j'  EVENT  ******************************/ 

spiece_cost(start,event(Sq,trla,S,F),0)  . 
spiece_cost(start,event(Sq,trlb,S,F),0)  . 
spiece_cost(start,event(Sq,trlc,S,F),0)  . 
spiece_cost(start,event(Sq,ec,S,F),0)  . 

spiece_cost(start,event(Sq,ewm,S,F),Cost):- 

priorevent(Sq,ewc,Sl,Fl), 

D  is  S  -  SI, 
costfnl(D,Cost). 

spiece_cost(start,event(Sq.ewn,S,F),Cosi)> 

priorevent(Sq,ewp,Sl,Fl), 

D  is  S  -  FI, 
costfnl(D,Cost). 

spiece_cost(  start,  event  (Sq,Event,S,F),  Cost  ):- 
((Event  =  ewp; 

Event  =  ewn); 

Event  =  en ). 

prerequisite(Sq.dsO.S  1  ,F1 ). 

D  is  S  -  FI. 
costfn2(D.Cost  1. 
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spiece_cost(start, event(Sq, Event, S  ,F),Cost) :  - 
(Event  =  ewe; 

Event  =  ewm), 
prerequisite(Sq,dv  1  ,S  1  ,F1 ), 

Dis  S  -  SI, 
costfn2(D,Cost). 

/*  Next  rules  are  cost  function  for  non-related  events.  */ 

costfn2(D  1  .Cost) 

D1  <30, 

DisDl/21  , 

Cost  is  100  -  243 *D  +  189*D**2  -  45*D**3,!. 
costfn2(Dl,Cost) 

Cost  is  10  -  6e-l*Dl  +  D1**2/100, !. 

f*  Next  rules  are  cost  function  for  squadron  related-events.  */ 

costfnl(Dl.Cost) 

D1  <21, 

DisDl/21  , 

Cost  is  100  -  243*D  +  189*D**2  -  45*D**3,  !. 
costfnl(Dl.Cost) 

Cost  is  10  -  0.85714e0*Dl  +  Dl*Dl/49, !. 


/*  Next  rules  are  teamcost  function. 

costfn3(Dl,Cost) 

D1  <51, 

D  is  Di/30, 

Cost  is  100  -247.25eO*D  +  197.5e0*D**2  -  49.25eO*D**3,  !. 


costfn3(Dl,Cost) 

Cost  is  8.52e0  +  l/(50/Dl)**2, !. 


*/ 


eva!2(State,Eval):- 

total_events(T), 

list_length(State,N2), 

X  is  T  -  N2,  /*  X  is  number  events  left  to  schedule  .  */ 

Eval  is  X, +.  /*  Minimum  val  e  of  cost  is  1.0.  */ 

cleandatabase2 
cleandatabase, 
del_all_statements(index/l), 
del_all_statements(min_cost_reached/0), 
del_all_statements(oldcost/l ), 
del_alLstatements(besLstate,C;. 


expon(X.Y) 

export  1  (X.Yj. 
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expon(X,Y) 

NX  is  -X, 
exponl(NX,Yl), 

Yis  1/Y1. 

exponl(X.Y) 

expon2(X,l,l,l,Y). 

expon2(X,N,S,T,S) 

T<1.0E-3,+. 

cxpon2(X,N,S,T,Y) 

TP1  is  X/N*T, 

SP1  is  S+TP1, 

NP1  is  N+l, 

expon2(X,NP  1  ,SP  1  ,TP  1  ,Y)  . 
endmod  /*  module  vpfinalsearch  */  . 


VPUTILITIES  MODULE 

This  module  contains  the  numerous  utility  functions  used  in  several  other  modules.  It 
was  written  by  Professor  Rowe  and  LCDR  Hutson  in  C-Prolog,  and  has  been  converted 
to  run  in  M- Prolog. 


module  vputilities. 

export  (append  /  3,  delete  /  3,  singlemember  /  2,  deleteitems  /  3, first  /  2,  member  /  2, 
open  /  2,  tell  /  2,  told  /  1,  deleteone  /  3,  stars  /  0,  subset  /2,  prettyprint  /  1,  max  /  2, 
union  /  3,  xbagof  /  3,  countl  /  1,  count2/  1,  count3  /  1,  counterl  /l,  sortevent/  2, 
sortmonthevent  /  2,  abs  /  2,  myname  /2). 

global  (status, trialperiod,prerequisite,event, 

jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
monday,tuesday, Wednesday, thursday.firiday, Saturday, Sunday, weekend, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

dynamic(count  1 /I ) . 
dynamic(count2/l). 
dynamic(count3/l). 

abs(X,X)  X  >=  0. 

aos(X.Y)  Y  is  0  -  X. 

lastQXJ.X). 

last([XIL],Y)  last(L,Y). 
member(X,[XIL]). 
member(X,[  YIL])  member(X,L). 
max([XJ,X). 

max(fX!L],Xj  max(L,M).X>M. 

ma\C[XiL].M ) 
maxCL.M ). 


minf[X],X ). 

minf[X'L].X(  min(L.M).  X<M. 


min([XIL],M) min(L,M),  X>=M. 
delete(X, [],[]). 

delete(X , [XIL] ,M) !,  delete(X,L,M). 
delete(X,[YIL],[YIM]) delete(X,L,M). 
append([],L,L). 

append([XIL],L2,[XIL3]) append(L,L2,L3). 

f*  Some  variants.  */ 

singlemember(X,[XIL]) !. 

singlemember(X,[YIL]) singlemember(X,L). 

deleteone(X, [],[]). 

deleteone(X,[XILl.L) !. 

deleteone(X,[YIL],[YIM])  deleteone(X,L,M). 

/*  Writes  60  stars.  */ 

stars 

writeC'****  ****************************  *************************** ") 

/*  Predicates  defined  from  others,  */ 

subset([],L). 

subset([XIL],L2)  singlemember(X,L2),  subset(L,L2). 

/*  Prints  out  a  list  with  one  item  per  line;  useful  for  lists  of  lists  which  can  overflow  */ 

/*  the  terminal  line.  */ 

prettyprintCn.)  nl,!. 

prettyprintOXIL])  writefX),  nl,  prettyprint(L). 

union(f],L,L). 

union(L,[],L). 

union([XlLl],L2,L3)  singlemember(X,L2),  !,  union(Ll,L2,L3). 
union([XILl],L2,[X!L3])  unionCLl ,L2,L3). 
xbagof(X,P,L):-  bag_of(X,P,L),!. 
xbagoffX.P.L):-  !. 


s; ; 


f*  Counter  for  the  vpgenerator  module,  count  1  (O).is  asserted  in  init_dynamics  in  the  */ 
/*  vpscheduler  module.  */ 

counterl(K):- 

countl(K0), 

del_statement(countl(KO)), 

K  is  KO  +  1, 

add_statement(count  1  (K)),! . 

/*  Counter  for  the  nopathsearch.  count2(0).  asserted  in  init_dynamics  in  vpdcheduler  */ 
/*  module .  */ 

counter2(K)> 

count2(K0), 

del_statement(count2(K0)), 

Kis  KO  +  1, 

add_statement(count2(K)) , ! . 

I*  Counter  for  count_priorevents.  count3(0).  is  asserted  in  init_dynamics  in  */ 

/*  vpscheduler  module.  */ 

counter3:- 

count3(K0), 

del_statement(count3(K0) ), 

Kis  K0+  1, 

add_statement(count3(K)),! . 


/*  Sorts  events  by  start  dates.  */ 

sortevent([],[]). 

sortevent([event(Sq,E,S,F)ILl],L2):- 

sonevent(Ll,L3), 

insen_event(event(Sq,E,S,F),L3,L2). 

insert_event(event(Sq.E.S,F),[],[event(Sq,E,S,F)]). 

insen_event(event(Sq.E,S,F),[evem(Sq2,E2,S2,F2)IL],[event(Sq,E,S,F))event(Sq2, 
E2,S2,F2)IL]):- 
S  <  S2. 

insert_e  vent(  even  t(Sq,E.S,F),(  event  (Sq2,E2,S2, F2)IL],[event(Sq2,E2,S2,F2)IL2  ]  ):- 
S  >=  S2. 

insert_event(event(Sq,E,S,F),L,L2). 

/*  Sons  month  events  by  month  number.  */ 

sonmonthevent([],[|). 

sortmonthevent([event(Sq,E.MN)iLl].L2):- 
sonmonthe  vent(L  1  ,L3 ). 
insenmonthevenKeventfSq.E.MN  ;,L3,L2). 


insertmonthevent(event(Sq,E,MN),[],[event(Sq,E,MN)]). 

insertmonthevent(event(Sq,E,MN),[event(Sq2,E2,MN2)IL],[event(Sq,E,MN),event(Sq2, 

E2,MN2)IL]):- 

MN  <  MN2. 

inse,tmonthevent(event(Sq,E,MN),[event(Sq2,E2,MN2)IL],[event(Sq2,E2,MN2)IL2]):- 
MN  >=  MN2, 

Lnsertmonthevent(event(Sq,E,MN),L,L2). 

opcn(CH.OUTFILE):- 

set_channel(outfile(CH),[name=OUTFILE,mode=create]), 

set_output(outfile(CH)) , 

told(CH). 

tell(CH,OUTFILE):- 

set_channel(outfile(CH),[name=OUTFILE,mode=append])> 

set_output(outfile(CFI)). 

told(CH) 

close_output(outfile(CH)). 

/*  Deletes  a  set  of  items  from  another  list .  */ 

deleteitems([],L,L). 

deleteitems([X!L],L2,L3)  delete^X.L'U^),  deleteitems(L.L4,L3). 
first([XIL],X). 

/*  myname  developed  to  use  in  the  compiled  version  where  name  is  no;  allowed.  */ 

myname(S,L):- 

S  is_a  var,xlname(S,L). 

myname(S.L):- 

L  is_a  var,x2name(S,L). 

xlnamefX.fF]) 

conven_char(FS,F).  concatenate("",FS,Xj  . 
xlname(X,[FILl ) 

convert_char(FS,F),  xlname(Xl.L),  concatenate(FS,X!,X)  . 
x2name(S.[NJl 

stnng_length(S,l ),  conven_char(S,N)  . 
x2name(S,[NI.\Ll) 

string_length(S,LS ),  substringCS,  1 . 1,S  1 ),  conven_char(S  1  ,N), 
substring(S,2,LS,S2j,  x2namefS2,NL)  . 


endmod  /*  module  vputilities  */  . 


VPSCHEDWRITER  MODULE 

This  module  contains  the  functions  necessary  to  print  the  schedule  information,  in 

columnar  format,  to  the  screen  and  the  file  SCHEDULE.pro  . 

moo  lie  vpschedwriter . 

export(  eventprinter  /  1). 

import(  number_to_month  /  3,  eventcode  /  2,  daynumber_to_date  /  2,  open  /  2,  tell  /  2, 
told/1). 

global  (status,trialperiod,prerequisite, event, 

ntpi, pre_mrci,mrci,natops, comm  and  jeady_alert,pre_ntpi, 
jan,feb,mar,apr,mayjunjul,aug,sep,oct,nov,dec, 
monday,tuesday, Wednesday  Jmrsday.friday, Saturday, Sunday, weekend, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsd, 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

/*  Writes  in  columnar  form  the  schedule  given  a  list  with  month  numbers.  */ 

eventprinterCLIST) 

eventprinter2(LIST),!. 

eventprinter2([XIL]) 

structure(X,  list,  [event,  Sq,INSP, Start, Finish]), 
write(Sq),write_tab(6), 
eventcode(INSP,EVTNAME), 
w'rite(EVTNAME),wTite_tab(  1 8). 
daynumber_to_date(Start,[SD,SM,SY]}, 
write(SD),wrue_tab(2 1 ), 
write!  SM  ),write_tab(25), 
write(SY  ),write_tab(30), 
davnumber_to_date(Finish,[FD,EM,FY]), 
v.Tite(FD),write_tab(33), 
uTitefFM  j,v.Tite_tab(37  j, 
wnte(FY'j,  nl. 
eventpnnter2(L),!. 

eventprinter2(X) 

writeCInput  to  eventprinter  was  in  wrong  format. "),nl. 
write(X),nl,!. 

endmod  /*  module  vpschedwriter  */  . 
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VPGENERATOR  MODULE 

This  module  generates  all  the  possible  trialperiods  for  each  of  the  events  for  the 
schedule  period.  It  was  written  by  LCDR  Hutson  in  C-Prolog  and  has  been  converted  to 
run  in  M-prolog 


module  vpgenerator. 

export  (trialperiod  /  3,  generate_trialperiods  /  0). 

import  (eventnames  /  1,  member  /  2,  yearbegin  / 1,  holiday  /  3,  daynumber_to_date  /  2, 
daysofmonth  /  2,  counter  1  /  1,  countl  /  1,  date_calc  /  3,  day_of_week  /2,  yearend  /  1). 

global  (jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
status,trial  period, prerequisite, 

trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl  ,dsl,trl,dsO, 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50, 

monday , tuesday, Wednesday  ,thursday,friday, Saturday  .Sunday, weekend). 

/*$eject*/ 

body. 

dynamic(  tri  al  period/3 ) . 

/*  Driver  for  this  program.  */ 

generate_trialperiods:- 

writeO'Generating  possible  inspection  periods. ..."),nl, fail. 

generate_trialperiods:- 
eventnames(E\), 
member(X,EN), 
generaie_readies(X), 
generate_weapevals(X ), 
generate_natops(X), 
generate_ore_weapevals(X ), 
generate_ore_command(X),  !  . 


I*  The  ready-alert  periods  are  generated. 

genera  te_readies(Eventname) :  - 
Eventname  =  trla, 
yearbegin(B), 
calc_start(B,0,S), 

day  number_to_date(S ,  [Day  .Month  .Year] ) , 

Day  =  1, 

daysofmonth  (Month, D), 
calc_finish(S,D,F), 

add_s  tatemen  t(  trial  period(tr  1  ,S  ,F),  bottom) , 
counter  1(K), 
fail . 

generate_reaaies(Eventname):- 
trialperiod(trl . 

/*  Pre-NTPI  and  NTPI  trialperiods. 

generate_weapevals(Eventname):- 
(Eventname  =  ewp; 

Eventname  =  ewn), 
yearbegin(B), 

next_safedaynumber(2,B,0,S), 

calc_finish(S,2,F), 

safeperiod(S.F), 

add_statement(trialperiod(Eventname,S,F),  bottom), 

counterl(K), 

fail . 

generate_weapevals(Eventname):- 
tri  a]  period  (e  wp ,_,  _) ,! , 
trialperiod(ewn,_,_),!. 

/*  NATOPS  penods  are  generated. 

generate_natops(Eventname):- 
Eventname  =  en, 
yearbegin(B), 

next_safemonday_daynum(B,0,S ), 

calc_finish(S.12.F), 

safeperiod_wi  th  weekends!  S.Fj, 

add_statement(  trial  periodten.S.Fj,  bottom). 

counterl(K), 

fail  . 

generate_natops(  Eventname 
trialpenod(en,_.,„ ).!. 

/*  pre_MRCI  and  MRC1  periods. 
generate_ore_weapevals(  Eventname  i:- 
(Eventname  -  ewe: 
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Eventname  =  ewm), 
ycarbegin(B), 

next_safedaynumber(4,B,0,S), 

calc_fInish(S,4,F), 

safeperiod(S,F), 

add_statement(  trial  period  (Eventname, S,F), bottom), 
counter  1(K), 
fail . 

generate_ore_weapevals(Eventname):- 
trialperiod(ewc,_,_),! , 
trialperiod(ewm,_,_),! . 

f*  Cl  periods  are  generated.  */ 

generate_ore_command(Eventname):- 

yearbegin(B), 

next_safemonday_daynum(B  ,0,S ), 

calc_finish(S,5,F), 

safeperiod(S.F), 

add_sta'ement(trialperiod(ec,S,F), bottom), 
counter  1(K), 
fail . 

/*  Produces  a  final  count  of  the  number  of  trialperiods  generated.  */ 

generate_ore_command(Eventname):- 
trialperiod(ec,_,_), ! , 
count  1(N), 
write(N), 

del_statement(countl  (N)), 
add_statement(countl  (0)), 
write("  Trial  Periods  Generated. "),nl,!. 

/*  Based  on  duration  of  the  inspection  outputs  the  next  date,  discarding  holidays  */ 
/*  and  weekends.  */ 

next_safedaynumber(Duration,DayNumberIn,  Delay  .DayNumberOut):- 
Duration  =  2, 

date_calc(DayNumberIn,Delay,DayNumberOut), 
day_of_week(DayNumberOut,Dav), 
no;(Dav  =  friday), 
yearend(End), 

DayNumberOut  <  End, 
safalaynumber(DayNumberOut). 
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next_safeiaynumber(Duration,DayNumberIn, Delay  .DayNumberOut):- 
Duration  =  4, 

date_calc(DayNumberIn, Delay, DayNumberOut), 
day_of_week(DayNumberOut,Day), 

(Day  =  monday; 

Day  =  tuesday). 
yearend(End), 

DayNumberOut  <  End, 
safedaynumber(DayN  umberOut) . 

next_safedayn  umber  (Duration,  DayNumberln,  Delay  .DayNumberOut):- 
Delay2  is  Delay  +  1, 

P  is  DayNumberln  +  Delay2, 
yearend(End), 

P  <  End, 

next_safedaynumber(D  uration, DayNumberln, Delay2,DayNumberOut). 

f*  Computes  a  non-holiday  monday  to  start  an  inspection.  */ 

next_safemonday_dayn  um  (DayNumberln, Delay, DayNumberOut):- 
date_calc(DayNumberIn,Delay, DayNumberOut), 
yearend(End), 

DayNumberOut  <  End, 
safemond?y(DayMumberOui). 


next_safemonday_daynum(DayNumberIn,Delay,DayNumberOut):- 
Delay2  is  Etelay  +  1, 

date_calc(DayNumberIn,Delay2,ProspectiveDayNumber), 

yearend(End), 

ProspectiveDayNumber  <  End, 

next_safemonday_daynum(DayNumberIn,Delay2,  DayNumberOut). 

/*  Verifies  monday  is  safe.  */ 

safemonday(DayNumber):- 

day_of_week(Day  Number, Day), 

Day  =  monday, 

not(holiday(DayNumber,Day,Holiday_name)). 

/*  Verifies  inspection  period  is  not  interrupted  by  a  weekend  or  holiday.  */ 

safeperiod(Start,Finish):- 
Start  =  Finish,!. 

safeperiod(Start,Finish):- 
D  is  Start  +  1, 
safedaynumber(D), 
safepcriod(D, Finish ). 
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f*  Permits  exclusion  of  weekends  with  holidays  since  impratical  to  schedule  a  two  */ 

/*  week  event  over  a  holiday  period  anyway.  */ 

safeperiod_  wi  th  weekends(S  tart, Finish) :  - 
Start  =  Finish,!. 

safeperiod_withweekends(Start,Finish):- 
D  is  Start  +  1, 
day_of_week(D,Day), 
not(holiday(D,Day,Holiday_name)), 
safeperiod_with  weekends(D  .Finish) . 

safeday  number(DayNumber) :  - 

day_of_week(DayNumber,Day), 

not(weekend(Day)), 

not(holiday(DayNumber,Day,Holiday_name)), 

f*  Calculates  start  of  event  regardless  of  weekends  or  holidays.  */ 

calc_start(BasedayNumber,  Delay,  S  tan) 

Stan  is  BasedayNumber  +  Delay, 
yearend(End), 

Stan  <  End  +  31. 

calc_start(BasedayNumber,Delay,S  tart) 

Delay2  is  Delay  +  1, 

P  is  BasedayNumber  +  Delay2, 
yearend(End), 

P  <  End  +  31,  /*  Provides  ready  in  case  overlap  with  nextyear  */ 

calc_stan  (BasedayNumber  ,Delay2,  Start). 

/*  Calculates  finish  of  event.  */ 

calc_finish(Start,Duration,Finish):- 
Days  is  Duration  -  1, 
date_calc(Start, Days, Finish). 

endmod  /*  module  vpgenerator  */. 
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VPCALENDAR  MODULE 

This  module  contains  all  the  various  calendar  functions  to  convert  from  one  form  of 
representing  a  date  to  another.  It  was  written  by  LCDR  Hutson  in  C-prolog  and  has  been 
converted  to  run  in  M-Prolog.  A  new  rule  was  added  to  daynumbertodate  to  handle  leap 
year  correctly. 


module  vpcalendar. 

import  (abs  /  2). 

export  (day_of_week  /2,  holiday  /  3,  difference_between_dates2  /  3,  datetodaynumber  /  2, 
daysofmonth  /2,  date_calc  /  3,  daynumber  _to_date  /  2  ). 

global  (status, tnalperiod, prerequisite, 

jan,feb,mar,apr,mayjun,jul,aug,sep,oct,nov,dec, 
daysofmonth  /2,  date_calc  /  3,  daynumber_to_date  12). 
monday,tuesday,wednesday,thursday,friday,saturday,sunday,weekend, 
tr  1  a,tr  1  b,tr  1  c,ewp,ewn,en,ewc,ewm,ec,dv  1  ,dr  1  ,ds  1  ,trl  ,dsO, 
vp9,vp  19,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

/*  Determines  day  of  week  */ 

day_of_week(DayNumber,Day):- 
X  is  DayNumber  mod  7, 
daymod(Day,X). 

/*  Computes  the  number  of  days  difference  between  two  dates.  */ 

difference_between_dates(DatelJDate2,Difference):- 
datetodaynumberfDate  1  ,Daynumberl ), 
datetodaynumber(Date2,Daynumber2), 

X  is  Daynumberl  -  Daynumber2, 
abs(X, Difference). 

difference_between_dates2(DayNumberl,DayNumber2,Difference):- 
X  is  DavNumberl  -  DayNumber2, 
abs(X, Difference). 
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f*  Uses  1600  as  base  date  for  ease  of  Gregorian  correction.  */ 

datetodaynumber([Monthday, Month,  Year], Daynumber):- 
Diff  is  Year  -  1600, 

N  is  (Diff*365)+(DifF  div  4)+(Diff  div  400)-(Diff  div  100)  +  1, 
days_so_far([Monthday,Month,Year],Days), 

Daynumber  is  N  +  Days. 

days_so_far([Monthday,Month,Year],Days):- 

leapyear(Year), 

(.Month  =  jan  ;  Month  =  feb), 
daysuntilmonth(Month,Days  1 ), ! , 

Days  is  Daysl  +  Monthday  -  1  . 

day  s_so_far(  [Monthday  .Month ,  Y  ear]  .Day  s) 
leapyear(Y  ear), 

not( (Month  =  jan  ;  Month  =  feb)), 
day  suntilmonth(Month,Day  s  1 ), ! , 

Days  is  Daysl  +  Monthday  . 

days_so_far(  [Monthday  .Month, Year], Days):- 
daysuntilmonth  (Month, Days  1 ), ! , 

Days  is  Daysl  +  Monthday. 

leapyear(Year):- 

X  is  Year  mod  400, 

X  =  0,!. 

leapyear(Year):- 

X  is  Year  mod  100, 
not(X  =  0), 

Y  is  Year  mod  4,  Y  =  0,!. 

/*  Computes  date  after  adding  a  positive  or  negative  number  of  days  */ 

date_calc(Day  Numberln  ,Days,DayN  umberOut ) :  - 
DayNumberOut  is  Days  +  DayNumberln,!. 

aate_calc2(DateIn,Days,DateOut)> 

datetodaynumberfDateln, Daynumber), 

Daycount  is  Days  +  Daynumber, 
daynumber_to_date(Daycount,DateOut),!. 
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I*  receives  dayn umber  representing  the  nth  day  since  01  Jan  1600  and  returns  a  date.  */ 

daynumber_to_date(DayCount,[Monthday  ,W,  Year]) 

Year  is  1600  +  (DayCount  div  365), 

Diff  is  Year  -  1600, 

N  is  (Diff*365)+(Diff  div  4)+(Diff  div  400)-(Diff  div  100)  +  1, 
not(N  >=  DayCount), 
not(leapyear(Y  ear)). 

Days  is  DayCount  -  N, 
daysuntilmonth(X,Y), 

Y  >=  Days, 
premonth(W,X),!, 
daysuntilmonth(W,Z), 

Monthday  is  Days  -  Z,!. 

daynumber_to_flate(DayCount,[Monthday ,  W,  Y  ear]) 

Year  is  1600  +  (DayCount  div  365), 

Diff  is  Year  -  1600, 

N  is  (Diff* 365 )+(Diff  div  4)+(Diff  div  400)- (Diff  div  100)  +  1, 
not(N  >  DayCount), 
leapyear(Y  ear), 

Days  is  DayCount  -  N  +  1, 

Days  >  60, 

daysuntilmonth(X,Y), 

Y  >=  Days, 
premonth(W,X),i, 
daysuntilmonth(W,Z), 

Monthday  is  Days  -  Z  -  1,!. 

/*  Handles  the  leap  year  jan  and  feb  conversions,  */ 

daynumber_to_date(DayCount, [Monthday  ,W,  Year]  ):- 
Year  is  1600  +  (DayCount  div  365), 

Diff  is  Year  -  1600, 

N  is  (Diff*365)+(Diff  div  4)+(Diff  div  400)-(Diff  div  100)  +  1, 

not(N  >  DayCount), 

leapyear(Year), 

Days  is  DayCount  -  N  +  1, 
lpyrdaysuntilmonth(X,Y ), 

Y  >=  Days, 
premonth(W,X),!, 
daysuntilmonth(W,Z), 

Monthday  is  Days  -  Z  ,!. 
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daynumber_to_date(DayCount,[Monthday,W,Year]):- 
Yearl  is  1600  +  (DayCount  div  365), 

Diffis  Yearl  -  1600. 

N  is  (Diff*365)+(DLf  div  4)+(Diff  div  400)-(Diff  div  100)  +  1, 

N  >=  DayCount, 

Year  is  Yearl  - 1, 

Diff2  is  Year  - 1600, 

N2  is  (Diff2 *365)+(Dif¥2  div  4)+(Diff2  div  400)-(Diff2  div  1 00)+ 
notOeapyear(Y  ear)), 

Days  is  DayCount  -  N2, 
daysuntilmonth(X,Y), 

Y  >=  Days, 
premonth(W,X),!, 
daysuntilmonth(W,Z) , 

Monthday  is  Days  -  7,!. 

daynumber_to_date(DayCount,[Monthday,W,Year]):- 
Yearl  is  1600  +  (DayCount  div  365), 

Diffis  Yearl  - 1600, 

N  is  (Diff*365)+(Diff  div  4)+(Diff  div  400)-(Diff  div  100)  +  1, 

N  >=  DayCount, 

Year  is  Yearl  -  1, 

Diff2  is  Year  -  1600, 

N2  is  (Diff2*365)+(Diff2  div  4)+(Diff2  div  400)-(Diff2  div  100)+ 
leapyear(Y  ear), 

Days  is  DayCount  -  N2  +  1, 
daysuntilmonth(X,Y), 

Y  >=  Days-1, 
premonth(W.X),!, 
daysuntilmonth(W,Z), 

Monthday  is  Days  -  Z  -  1,!. 

holiday(Daynumber,Day,Holiday_name):- 
d  ayn  u:nber_to_date(Daynumber,Date), 
holiday_day(Date,Day ,Holiday_name), !  . 

holiday_day([Date_day, Month, Year], Day  ,Holiday_name):- 
not(ho*hday_free_momh(Month)), 

Day  =  monday, 

which_monday(Da*e_day,Monday_position), 
monday_holiday(Monday_position, Month, Holiday_name),!  . 

holiday_day([Date_day, Month, Year],Day, memorial_day):- 
Month  =  may, 

Day  =  monday, 

Date_day  >  24.  /*  Last  Monday  in  May  .  */ 

holiday_day([Date_dav, Month,  Year], Day, thanksgiving):- 
Month  =  nov, 

Day  =  thursdav, 

Date_day  >  21  . 
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holiday_date([Date_day  .Month, Year]  .Holiday  _name):- 
not(holiday_free_month(Month)), 
day_of_week(  [Date_day, Month ,  Y  ear]  ,Day ) , 

Day  =  monday, 

which_monday(Date_day,Monday_position), 
monday_holiday(Monday _position, Month, Holiday_name),!  . 

holiday_date([Date_day  .Month, Year],memorial_day):- 
Month  =  may, 

day  _of_week([Date_day, Month, Year], Day), 

Day  =  monday, 

Date_day  >  24, ! . 

holiday  _date([Date_day  .Month, Year],thanksgi  ving):- 
Month  =  nov, 

day_of_week([Date_day, Month,  Y  ear]  ,Day), 

Day  =  thursday, 

Date_day  >21,!  . 

/*  Holidays  */ 

holiday_date([ljan,Year],new_years). 
holiday_date(  [4,j  ul,  Year]  ,independence_day). 
holiday_date([  1  l,nov,Year],veterans_day). 
holiday_date([25,dec,Year], Christmas). 
holiday_day  ( [4,j  ul ,  Y ear]  ,Day  ,independence_day ) : - ! . 
holiday_day([l,jan, Year], Day, new_years) !. 
holiday_day([l l.nov, Year], Day, veterans_day):-  !. 
holiday_day([25,dec,  Year], Day  .Christmas):-  !. 

which_monday(Date_dav,Monday_position):- 
Date_day  <  8,  Monday_position  is  1. 

which_monday(Date_day,Monday_position)> 

Date_day  >  7,  Date_day  <  15,  Monday_position  is  2. 

which_monday(Date_day,Monday_position):- 

Date_day  >  14,Date_day  <  22,  Monday_position  is  3. 

which_monday(Date_day,Monday_position):- 

Date_day  >  21,Date_day  <  29,  Monday_position  is  4. 

which_mondayCDate_day,Monday_position):- 

Date_day  >  28,Date_day  <=  31 ,  Monday_position  is  5. 

/*  check  to  see  if  day  is  pan  of  weekend  */ 

weekend(saturday,. 

w’eekend(sunday). 


97 


monday_holiday(3,jan,martin_luther_king) . 
monday_holiday(3,feb,washingtons_bday). 
monday_holiday(  1  ,sep,labor_day). 
monday.  holiday  (2, oct,columbus_day) . 

daysofmonth(j  an,3 1 ) . 
daysofmonth(feb,28). 
daysofmcnth(mar,3 1 ). 
daysofmonth(apr,30). 
daysofmonth(may,3 1). 
daysofmonth(jun,30). 
daysofmonth(jul,3 1 ). 
daysofmonth(aug,31). 
daysofmonth(sep,30). 
daysofmonth(oct,3 1 ). 
daysofmonth(nov,30). 
daysofmonth(dec,3 1 ). 

daymod(sunday,2). 

daymod(monday,3). 

daymod(tuesday,4). 

daymod(wednesday,5). 

daymod(thursday,6). 

daymod(friday.O). 

daymod(saturday,  1 ). 

premonth  (j  an, feb). 

premonth(feb,mar), 

premonth(mar.apr). 

premonth(apr,may). 

premonth(may  ,jun) . 

pre  month  (junjul). 

premonth(jul,aug). 

premonth(aug,sep). 

prcmonth(sep.oct). 

premonth(oct,nov). 

premonth(nov,dec). 

premonth(decjan). 

daysuntilmonth(jan,0)  . 
daysuntilmonth(feb,31) . 
daysuntilmonth(mar,59) . 
daysuntilmonth(apr,90) . 
daysuntilmonth(may,120) . 
daysuntilmonth(jun,151) . 
daysuntilmonth(jul,181) . 
daysuntilmonth(aug,212)  . 
daysuntilmonth(sep,243)  . 


daysuntilmonth(oct,273) . 
daysuntilmonth(nov,304) . 
daysuntilmonth(dec,334) . 
daysuntilmonth(jan,365) . 

f*  Help  to  handle  leap  year  jan  and  feb. 

Ipyrdaysuntilmonth(jan,0) . 
lpyrdaysuntilmonth(feb,3 1 ) . 
lpyrdaysuntilmonth(mar,60) . 
lpyrdaysuntilmonth(apr,91) . 

f*  HOLIDAYS 

holiday_free_month(mar) . 
holiday_free_month(apr) . 
holiday_free_month(jun) . 
holiday _free_month(aug) . 

endmod  /*  module  vpcalendar  */. 


t*  added  if  premonth  is  dec  */ 

*/ 


*/ 
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APPENDIX  B  -  SAMPLE  INPUT  DATA  FILE 


The  following  is  an  example  of  what  a  complete  Database.pro  file  contains  after  the 
vpinterface  module  is  completed.  The  information  in  this  same  database  file  could  be 
modified  to  make  subsequent  runs.  If  it  was  not  modified,  the  program  would  run  without 
computing  any  of  the  information  during  stage  I,  because  this  is  a  complete  database. 


DATABASE. pro  File 


year  be  gin  date([  1  ,oct,  1985]) 
yearenddate([30,sep,  1986]) 

prioreventdate(vp9,ewp,[ll,apr,1985],[28,feb,1985]) 
prioreventdate(vp40,ewp,[  1  l,apr, 1985], [28, oct, 1984]) 
prioreventdate(vp47,ew,p,[  1  l,apr,lQ85],[28,aug,1985]) 
prioreventdate(vp50,ewp,[  1  l,apr,1985j,[28,feb,1985]) 
prioreventdate(vp9,ewn,[l  l,apr,1985],[28, mar,  1985]) 
prioreventdate(vp40,ewn,[ll,apr,19°5],[28,nov,1984]) 
prioreventdate(vp46,ewn,[l  l,apr, 1985], [28, oct, 1984]) 
prioreventdate(vp47,ewn,[  1  l,apr,1985],[28,sep,1985]) 
prioreventdate(vp50,ewn,[  l  l,apr,  1985], [28, mar,  1985]) 
prioreventdate(vp9,en, [23, jul,  1985], [30,apr,  1985]) 
prioreventdate(vpl9,en,[23,jul,1985],[30,sep,1985]) 
prioreventdate(vp40,en,[23,jul,1985],[30jan,1985]) 
prioreventdate(vp46,en,[23,jul,1985],[30,dec,1984]) 
prioreventdate(vp47,en,[23,jul,1985],[30,aug,1985]) 
prioreventdate(vp48,en,[23,julI1985],[30,jul,1985]) 
prioreventdate(vp9,ewc,[  15,aug,1985],[19,jan,1985]) 
prioreventdate(vp9,ewm,[19,sep,1985],[23,feb,1985]) 
prioreventdate(vpl9,trla,[01,sep,1985],[  15,oct,1985]) 
prioreventdate(vp40,ewc,[  1 5,aug,1985],[  19,nov,1984]) 
prioreventdate(vp40,ewm,[  19,sep,1985],[23,dec,1984]; 
prioreventdate(vp46,ewc,[15,aug,1985],[  1 9,sep,  1984] ) 
priorfcv'entdate(vp46,ewm,[19,sep,1985],[23,oct,1984]) 
prioreventdate(vp47,ewm,[01  ,sep,1985],[25,apr,1984]) 
prioreventdate(vp50,  ewe,  [01,aug,l  985],  [25,feb,  1985]) 
prioreventdate(vp50,ewm,[01,sep,  1985],  [25,  mar,  1985]) 
prerequisitedate(vp9,ds0,(  1 1, dec,  1 985], [10,jan,  1986]) 
prerequisitedate(vp9,dvl,[01,jul,1986],[30,sep,1986j) 
prerequisnedate(vp9,drl,[16,nov,1986],[05,may,lr>87]) 
prerequisitedate(vp9,dsl,[06,may,1987],[05,apr,1987] ) 
prerequisitedate(vpl9,ds0,[  1 1, mar,  1 985], [10,apr,  1985]) 
prerequisitedate(vpl9.dvl,(  15,aug,1985],[  15.  1985]) 

prerequisitedatefvpl9,drl,[  10,feb,1986],[  10,aug,i986]) 
prerequisitedatefvp  1 9  ,ds  1 ,[  1 1  ,aug,1986].[  10,sep,1986') 
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prerequisitedate(vp40,ds0,[ll,sep,1985],[10,oct,1985]) 

prerequisitedate(vp40,dv  1  ,[0 1  ,api ,  1 986], [30  jun,  1986] ) 

prerequisitedatc(vp40,drl ,[  lO.aug,  1986],  [  10,feb,1987]^ 

prerequisitedate(vp40,ds  1 ,[  1 1  ,feb,  1 987],[  1 0, mar,  1987]) 

prerequisitedate(vp46,ds0,[ll,aug,1985],[10,scp,1985]) 

prerequisit^date(vp46,dvl,[01,mar,1986],[31,may,1986]) 

prerequisitedate(vp46,drl,[10jul,1986],[10je':,1987]) 

prerequisitedate(vp46,dsl,lii  jan,1987],[10,feb,1987]) 

prerequisitedate(  vp47  ,dsO,[  1 1  ,feb,  1 985] ,[  1 0,mar,  1985]) 

prerequisitedate(vp47,dvl,[01,sep,1985],[30,nov,1985]) 

prcrequisitedate(vp47,drl,[10jan,1986],[10Jul,1986]) 

prerequisitedate(vp47,ds  l,f  1 1  Jul.l  986],[10,aug,  1986]) 

prerequisitedatet,vp48,ds0,[ll  jan, 1985], [lO.feb, 1985]) 

prerequisitedate(vp48,dvl,[01,aug,1985],[31,oct,1985]) 

prerequisitedatetlvp48,drl,[10,dec,1985],[10,jun,1986]) 

prerequisitedate(vp48,ds  1 ,[  1 1  jun ,  1 986],[  1 0,jul,  1 986] ) 

prerequisitedate(vp50,ds0,[ll  jan,1986],[10,feb,1986]) 

prerequisitedate(vp50,dvl,l01,aug,1986],[3i,oct,19861) 

prerequisitedate(vp50,drl ,[  1 0,dec,  1986], [  10, jun,  1 987] ) 

prerequisitedate(vp50,dsl,[l  1  ,jun,1987].[10,jul,1987]) 

carmark(vp9,t  wn,[28,mar,  1 986]) 

earmark(vp40,ewn,[28,nov,1985]) 

earmark(vp46,ewn,[28,oct,1985]) 

earmark(vp47,ewn,[28,sep,1986]) 

earmark(vp50,ewn,[28,mar,1986]) 

earmark(vp9,en,[30,apr,1986]) 

earmark(vpl9,en,[30,sep,1986]) 

earmark(vp40,en,[30  jan,  1 986] ) 

earmark(vp46,en,[30,dec,1985]) 

earmark(vp47,en,[30,aug,1986]) 

earmark(vp48,en,[30,jul,1986]) 

earmark(vp50,en,[30,may,1986]) 

earmark(vp9,ewc,[19,jul,1986]) 

earmark(vp9,ewm,i23,aug,1986]) 

earmark(vp40,e\vc,[  19,may,1986]) 

earmark(vp40,ewm,[23,jun,1986]) 

earmark(vp46,ewc,[19,mar,1986]) 

earmark(vp46,ewm,[23,apr,1986]) 

earmark!  vp47,ewm,[25,oct,  1985]) 

earmark(vp50,ewc,[25,aug,1986j) 

earn  ark(vp50,ewn.,[  25, sep,  1986]) 

trialperiod(tr  1,1 40893, 140923) 

tri  a]  peri  od(tr  1,1 409 24, 140953) 

trialperiod(trl, 1409 54, 140984) 

trialperiodftrl ,  140985, 141015) 

trialperiod(trl,  141016,1 4 1043) 

tnalpenod(trl,  14 1044, 141074) 

tri  al  periods  trl  ,1 4 1075,141 104; 

trialperiodrir  1,141 105,141 135) 

trialperiod(trl.l41 136,141 165) 

trial  period! trl,  141 166.14  1 196) 
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trialpcriod(trl ,  1 4 1 1 97, 14 1 227) 
trialperiodftrl, 141228, 141257) 
trialpcriod(trl ,  14 1 258, 1 4 1288) 
trial  periodftr 1 , 1 4 1 289, 1 4 1 3 1 8) 
trial  period(tr 1 , 1 4 1 3 1 9, 1 4 1 349) 
trialperiodftr  1 , 1 4 1 350, 14 1 380) 
trial  periodfewp,  1 40893, 1 40894) 
trialperiodfewp,  140894, 140895) 
trialperiod(ewp,  140895, 140896) 
trial  period(ewp,  1 40899, 1 40900) 
trial  periodfewp,  1 40900, 1 4090 1 ) 
trial  period  (e  wp,  1 4090 1 , 1 40902 ) 
trialperiodfewp,  1 40902, 1 40903 ) 
trial  period  (ewp,  140907, 140908) 
trial  periodfewp, 140908, 140909) 
trialperiodfewp,  1 40909, 1 409 1 0) 
trialperiodfewp,  1 409 1 3, 1 409 1 4) 
trial  period(ewp,  1 409 1 4, 1 409 1 5) 
trialperiodfewp,  1 409 15,1 409 1 6) 
trialperiod(ewp,  1 409 16,1 409 17) 
trialperiod(ewp,  1 40920, 1 4092 1 ) 
trialperiod(ewp,  1 4092 1 , 1 40922) 
trialperiodfewp,  1 40922, 1 40923) 
trialperiod(ewp,  140923, 140924) 
trial  period  (e  wp ,  1 4092 7 , 1 4092 8 ) 
trial  period(ewp, 140928, 140929) 
trialperiodfewp,  1 40929, 140930) 
trial  periodfewp,  1 40930, 1 4093 1 ) 
trialperiod(ewp,  140935, 140936) 
trialperiod(ewp,  140936, 140937) 
trial  period(ewp,  1 40937, 1 40938) 
trial  periodfewp,  14094 1,140942) 
trialperiodfewp,  140942, 140943) 
trial  period(ewp,  1 40943, 1 40944) 
trial  period(ewp,  140944, 140945) 
trialperiod(ewp,  140948, 140949) 
tnalperiod(e  wp,  1 40949, 1 40950) 
trialperiod(ewp,  1 40955, 1 40956) 
tnalperiod(evvp,  1 40956, 1 40957 ) 
tri  alpenod(ewp, 140957, 140958) 
trialperiod(ewp,  140958, 140959) 
tnalperiod(ewp,  1 40962, 1 40963 ) 
trialperiod(ewp,  1 40963, 1 40964) 
trialpenod(ewp,  1 40964, 1 40965 ) 
trialperiodfewp,  1 40965, 1 40966) 
tnalpenod(ewp,  140969, 140970) 
trial  period(ewp,  1 40970, 1 4097 1 ) 
trialpericxHewp,  14097 1,140972) 
trialperiodfewp,  1 40972, 1 40973 ) 
trialperiodfewp,  140976, 140977  > 
trialpenod(ewp,  1 40979. 1 40980) 
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trialperiod(ewp,  1 40983, 1 40984) 
trialperiod(ewp,  1 40986, 1 40987) 
trialperiod(ewp, 140990, 1 4099 1 ) 
trialperiod(ewp, 140991, 140992) 
trialperiod(ewp,  1 40992, 1 40993) 
trialperiod(e  wp ,  1 4099 3 ,  i 409v  4) 
trialperiod(ewp,  1 40997, 140998) 
trialperiod(e  wp ,  1 4099 8 , 1 40999 ) 
trialperiod(ewp,  1 40999 ,141 000) 
trialperiod(ewp, 1 4 1 000, 1 4 1 00 1 ) 
trialperiod(e  wp ,  1 4 1 005 , 1 4 1 006) 
trialperiod(ewp,  1 4 1006, 1 4 1 007 ) 
trialperiod(e  wp ,  1 4 1 007 , 1 4 1 008 ) 
trial  period(ewp,  14101 1,141012) 
trialperiod(ewp,  141012, 141013) 
trialperiod(ewp,  1 4 1 0 1 3 , 1 4 1 0 1 4) 
trialperiod(ewp, 141014, 14101 5) 
trialperiod(ewp,  1 4 1 0 1 8 , 1 4 1 0 1 9) 

trialperiod(ewp,  141019,141 020) 
trialperiod(ewp,  141020,141021) 
trialperiod(ewp,  1 4 1 02 1 , 1 4 1 022) 
trialperiod(ewp,  1 4 1 025 , 1 4 1 026) 
trialpericxl(ewp,  1 4 1 026, 1 4 1 027 ) 
trialperiod(ewp,  1 4 1 02"7, 141028) 
trialperiod(ewp,  1 4 1 028 , 1 4 1 029) 
trial  period(ewp,  1 4 1 033, 1 4 1 034) 
trialperiod(ewp,  1 4 1 034, 1 4 1 035) 
trialperiod(ewp,  1 4 1 035,1 41036) 
trialperiod(ewp,  1 4 1 039, 1 4 1 040) 
trialperiod(ewp,  1 4 1 040, 1 4 1 04 1 ) 
trialperiod(ewp,  1 4 1 04 1 , 1 4 1 042) 

trialperiod(ewp,141042,141043) 
trial  period(ewp,  1 4 1 046, 141047) 
trialperiod(ewp,  141047, 141048) 
trialperiod(ewp,14 1048, 141049) 
trialperiod(ewp,  1 4 1 049, 1 4 1 050) 
trialperiod(ewp,  141053, 14 1054) 
trialperiod(ewp,  1 4 1 054, 141055) 
trialperiod(ewp,141055, 141056) 
trialperiod(ewp, 141056, 141057) 

trialperiod(e  wp,  1 4 1 060, 141061) 
iriai  period(e  wp,  1 4 1 06 1 , 1 4 1 062) 
trial  periodlewp,  1 4 1 062, 141063) 
trialperiod(ewp,  1 4 1 063, 1 4 1 064) 
trialperiod(ewp,141067,141068) 

trialpencxi(e  wp,  1 4 1 068, 1 4 1 069) 
trialperiodle  wp,  1 4 1 069, 1 4 1 070) 
trial  period(e  wp,  1 4 1 070, 1 4 1 07  i ) 
trialperiod(ewp,M  1074, 141075) 
tria]period(ewp,14 1075, 141076) 
trialperiod(ewp,141076,141077) 
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trialperiod(ewp,141077,141078) 
trial  period(ewp,  141 08 1,141082) 
trialperiod(ewp,  141082, 141083) 
trialperiod(ewp,  141 083, 141084) 
trialperiod(ewp,  1 4 1 084, 141085) 
trial  period(ewp, 141088, 141089) 
trialperind(e  wp,  141089,141 090) 
trial  period(ewp, 141090, 141091) 
triaiperiod(e  wp , 141091, 141092) 
trial  period(ewp,  1 4 1 095, 14 1 096) 
trialperiod(ewp, 1 4 1 096, 1 4 1 097) 
trialperiod(ewp, 141097, 141098) 
trialperiod(ewp, 141098, 141099) 
trialperiod(ewp,  141 102,141 103) 
trialperiod(ewp,141 103,141 104) 
trialperiod(ewp,  141 104, 141 105) 
trialperiod(ewp,141 105,141 106) 
trialperiod(ewp,141 109,141 1 10) 
trialperiod(ewp,141 1 10,141 1 1 1) 
trial  period(ewp,  141 1 1 1,141 1 12) 
trialperiod(ewp,141 1 12,141 1 13) 
triaIperiod(ewp,  14 1 1 16,141 117) 
trial  period(ewp,  141 1 17,141 118) 
trialperiod(ewp,141 1 18,141 119) 
trialperiod(ewp,141 1 19,141 120) 
trialperiod(ewp,  141123,1411 24) 
trialperiod(ewp,141 124,141 125) 
trial  period(ewp,  141125,141126) 
trialperiod(ewp, 141 126,141 127) 
trialperiod(ewp,  141131,141132) 
trial  period(ewp,  141 132,141133) 
trialperiod(ewp,141 133,141 134) 
tr'alperiod(ewp, 141 137,141 138) 
trial  period(ewp, 141 138,141 139) 
trial  period(ewp, 141 139,141 140) 
trialperiod(ewp,141 140,141 141) 
trialperiod(ewp, 141 144,141 145) 
trialperiod(ewp,141 145,141 146) 
trialperiod(ewp,141 146,141 147) 
trialperiod(ewp, 141 147,141 148) 
trialperiod(e  wp,  141151,141152) 
trialperiod(ewp,  141 152,141 153) 
trial  penod(ewp,  141 153,141 154; 
trialperiod(ewp,141 154,141 155) 
trialperiod(ewp,14]  158,141 159) 
trialperiod(ewp, 141 159,141 160) 
trialpericxKewp,  1 4 1 1 60, 1 4 1 1 6 1 ) 
trial  period(ewp,l  41 161,141 162) 
trialperiod(ewp, 141 165,141 166) 
trialperiod(ewp,141 166,141 167) 
trialperiod(ewp,141 167,141 168) 
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♦rialperiod(ewp,141 172,141 173) 
trialperiod(e  wp,  141173,141174) 
trialperiod(ewp  ,141174,141175) 
trialperiod(ewp,141 175,141 176) 
trialperiod(ewp, 141 179,141 180) 
trialperiod(ewp,  1411 80, 141181) 
trialperiod(ewp,  141181,141182) 
trialperiod(ewp,  1411 82, 141183) 
trialperiod(ewp, 141186,141187) 
trialperiod(ewp,141 187,141 188) 
trialperiod(ewp,  141 188,141 189) 
trialperiod(ewp,141 1 89,141 190) 
trialperiod(ewp,  1411 93, 1411 94) 
trialperiod(ewp, 141 194,141 195) 
trialperiod(ewp,141 195,141 196) 
trialperiod(ewp, 141 196,141 197) 
trialperiod(ewp,  141 200, 141201) 
trial  period(ewp,  141 20 1,141 202) 
trialperiocHewp,  14 1 202, 141203) 
trial  period(ewp,  1 4 1 203, 1 4 1 204) 
trialperiod(ewp,  1 4 1 207 ,141208) 
trial  period  (e  wp,  1 4 1 208 ,141 209) 
trial  period(ewp,  141209, 141210) 
trialperiod(ewp,141210, 14121 1) 
trialperiod(ewp,  141214,141215) 
trial  period(ewp,  1 4 1 2 1 5 , 1 4 1 2 1 6) 
trialperiod(ewp,  1 4 1 2 1 6, 1 4 1 2 1 7 ) 
trial  period(ewp,  141217, 14121 8) 
trial  period(ewp,  1 4 1 22 1 , 1 4 1 222) 
trialperiod(ewp,  1 4 1 222, 141223) 
trialperiod(ewp,l  4 1 223, 1 4 1 224) 
trialperiod(ewp,  1 4 1 224, 1 4 1 225) 
trial  period(ewp,  1 4 1 229, 141230) 
trial  period(ewp,  1 4 1 230, 141231) 
trial  period(ewp,  141231,141232) 
trialperiod(ewp,  141235,141236) 
trialperiod(ewp,  1 4 1 236, 1 4 1 237) 
trialperiod(ewp,141 237, 141238) 
trialperiod(ewp,  1 4 1 238, 14 1 239) 
trialperiod(ewp,  1 4 1 242, 1 4 1 243 ) 
trialperiod(ewp,14 1243, 14 1244) 
trialperiod(e  wp,  1 4 1 244, 1 4 1 245 ) 
trial  period(ewp,  1 4 1 245 ,141246) 
trialperiod(ewp,  1 4 1 249, 1 4 1 250) 
trialperiod(ewp,  1 4 1 250, 141251) 
trialperiod(ewp,  1 4 1 25 1 , 1 4 1 252) 
trial  peri  od(e  wp,  1 4 1 252, 1 4 1 253) 
trial  period(ewp,  1 4 1 256, 1 4 1 257 ) 
trialperiod(ewp,141257,141258) 
triaIperiod(e  wp,  1 4 1 258, 1 4 1 259) 
trialperiod(ewp,  1 4 1 259, 1 4 1 260) 
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trialperiod(ewp,  141263,141 264) 
trialperiod(e  wp,  141 264, 141265) 
trialperiod(ewp,  14 1 265, 141 266) 
trialperiod(ewp,  1 4 1 266, 141 267 ) 
trialperiod(e  wp,  1 41271, 141 272) 
trialperiod(ewp,  1 4 1 272, 1 4 1 27 3) 
trialperiod(ewp, 141273,141274) 
trialperiod(ewp,  1 4 1 277, 1 4 1 278 ) 
trialperiod(ewp, 141278, 141279) 
trialperiod(ewp,  1 4 1 279, 1 4 1 280) 
trialperiod(ewp,  141280, 141281) 
trialperiod(ewp, 141284, 141285) 
trialperiod(ewp,  1 4 1 28 5, 1 4 1 28 6) 
trialperiod(ewp,  1 4 1 286, 1 4 1 287) 
trialperiod(ewp,  141287,141288) 
trialperiod(ewp,  14129 1,14 1292) 
trial  period(ewp,141292, 141293) 
trialperiod(ewp,  1 4 1 293, 1 4 1 294) 
trialperiod(ewp,  14 1 294, 14 1 295) 
trialperiod(ewp,  1 4 1 300, 14 1 30 1 ) 
trialperiod(ewp,  1 4 1 30 1 , 14 1 302) 
trialperiod(ewp,  1 4 1 305, 1 4 1 306) 
trialperiod(ewp,  141 306, 141 307 ) 
trialperiod(ewp,14 1307,14 1308) 
trialperiod(ewp,  1 4 1 308, 1 4 1 309) 
trialperiod(ewp,  1 4 1 3 1 2, 1 4 1 3 1 3) 
trialperiod(ewp,  1 4 1 3 1 3 , 1 4 1 3 1 4) 
trialperiod(ewp,  1 4 1 3 1 9, 1 4 1 320) 
trialperiod(ewp,  141320,141321) 
trialperiod(ewp,  141321,141 322) 
trialperiod(ewp,  14 1 322, 141 323) 
trialperiod(ewp,  1 4 1 326, 1 4 1 327) 
trialperiod(e  wp,  1 4 1 327 , 1 4 1 328 ) 
trialperiod(ewp,  1 4 1 328, 141329) 
trialperiod(ewp,  1 4 1 329, 141330) 
trialperiod(ewp,  14 1 333, 14 1 334) 
trialperiod(ewp,  1 4 1 334, 141335) 
trialperiod(ewp,  141335,141336) 
trialperiod(ewp,  1 4 1 3  36, 1 4 1 3  37 ) 
trial  period(ewp,  1 4 1 340, 141341) 
trialperiod(e  wp,  1 4 1 34 1 , 1 4 1 342) 
trialperiod(ewn,  1 40893, 1 40894) 
trial  period(ewn,  1 40894, 1 40895) 
trialperiod(ewn,  1 40895, 1 40896) 
trialperiod(ewn,  1 40899, 1 40900) 
trialperiod(ewn,  1 40900, 1 4090  3 ) 
trialperiod(ewn , !  4090 1 , 1 40902) 
trial  period(ewn ,  1 40902, 1 40903) 
trial  peri  od(ewn,  140907, 140908) 
trial  peri  od(ewn,  1 40908, 1 40909) 
trialperiod(ewn,  1 40909, 1 409 1 0) 
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trialperiod(ewn,1409 1 3, 1409 14) 
trialperiod(e  wn,  1 409 1 4, 1 409 1 5) 
trialperiod(e  wn ,  1 409 1 5, 1 409 1 6) 
trialperiod(ewn,  14091 6, 1 409 1 7) 
trialperiodCewn, 140920, 140921) 
trialperiod(ewn,  1 4092 1 , 1 40922) 
trialperiod(ewn, 1 40922, 1 40923) 
trialperiodCewn, 140923, 140924) 
trialperiodCewn,  140927, 140928) 
trialperiod(e  wn,  1 40928, 1 40929) 
trialperiodCewn,  1 40929, 140930) 
trialperiodCewn, 140930, 140931) 
trialperiodCewn,  1 40935, 1 40936) 
trialperiod(ewn,  1 40936, 1 40937) 
trialperiod(ewn,140937, 140938) 
trialperiod(ewn,  1 4094 1 , 1 40942) 
trialperiodCewn, 1 40942, 1 40943) 
trialperiod(ewn,  140943, 140944) 
trialperiodCewn,  140944, 140945) 
trialperiodCewn,  1 40948, 1 40949) 
trialperiod(ewn,  1 40949, 1 40950) 
trialperiodCewn,  140955, 140956) 
trialperiod(ewn,  140956, 140957) 
trialperiod(ewn, 140957, 14095 8) 
trialperiod(ewn, 140958, 140959) 
trialperiodCewn,  140962, 140963) 
trialperiod(ewn,  1 40963 , 1 40964) 
trialperiodCewn, 1 40964 ,140965) 
trial  period(ewn,  1 40965, 1 40966) 
trialperiod(ewn,  1 40969, 1 40970) 
trialperiodCewn,  1  40970, 1 4097 1 ) 
trialperiod(ewn,  14097 1 ,140972) 
trialperiod(e  wn ,  1 40972, 140973) 
trialperiod(ewn, 140976, 140977) 
trialperiod(ewn,  140979, 140980) 
trialperiod(ewn,  1 40983 , 1 40984) 
trialperiod(ewn, 140986, 140987) 
trialperiod(ewn,  1 40990, 1 4099 1 ) 
trialperiod(ewn,  1 4099 1 , 1 40992) 
trialperiodCewn,  1 40992, 1 40993) 
trial  period(ewn,  1 40993, 1 40994) 
trialperiod(ewn,  1 40997, 1 40998) 
trialperiodCewn,  1 40998, 140999) 
trialperiodCewn,  1 40999, 1 4 1 000) 
trialperiodCewn, 1 41000, 14 1001) 
trialperiodCewn,  1 4 1 005, 1 4 1 006) 
trialperiodCewn,  1 4 1 006, 141007) 
trialperiodCewn,  1 4 1 007, 1 4 1 008) 
trialperiodCewn,  14101 1,141012) 
trialperiodCewn,  1 41012,141013) 
trialperiodCewn,  14 101 3, 141014) 
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trialperiod(ewn,  141014, 141015) 
trialperiod(ewn,  1 4 1 0 1 8 , 1 4 1 0 1 9) 
trialperiod(ewn,  141019,141 020) 
trialperiod(ewn,  1 4 1 020, 141021) 
trial  period(ewn,  141 02 1,141 022) 
trialperiod(e  wn,  1 4 1 025, 141026) 
trialperiod(e  wn,  141 026, 1 4 1 027 ) 
trialperiod(ewn, 141027, 141028) 
trialperiod(ewn,  1 41028, 141 029) 
trialperiod(ewn,141033, 141034) 
trialperiod(ewn,  1 4 1 034, 141035) 
trialperiod(ewn,  141035, 141036) 
trialperiod(ewn,  14 1039, 141040) 
trialperiod(ewn,14 1040, 141041) 
trialperiod(ewn,  1 4 1 04 1 , 1 4 1 042) 
trialperiod(e\*  n,141042,141043) 
trialperiod(ewn,  141 046, 141047) 
trial  period(ewn,  1 4 1 047, 141048) 
trial  period  (ewn,  1 4 1 048, 1 4 1 049) 
trial  period (e  wn,  1 4 1 049, 1 4 1 050) 
trialperiod(ewn,14 1053, 141054) 
trialperiod(ewn,  141054, 14 1055) 
trialperiod(ewn, 141055, 141056) 
trialperiod(ewn,  141056, 141057) 
trialperiod(ewn,  1 4 1 060, 141061; 
trialperiod(e  wn,  1 4 1 06 1 , 1 4 1 062) 
trialperiod(ewn,  1 4 1 062, 141063) 
trialperiod(ewn,  1 4 1 063 , 1 4 1 064 ) 
trial  period(ewn,  141067, 141068) 
trialperiod(e  wn ,  1 4 1 068 , 1 4 1 069) 
trialperiod(ewn,  1 4 1 069, 141070) 
trial  period(ewn,  1 4 1 070, 1 4 1 07 1 ) 
trialperiod(ewn,  141074, 14 1075) 
trialperiod(ewn,141075,141076) 
trialperiod(ewn,14 1076, 14 1077) 
trialperiod(ewn,  1 4 1 077, 1 4 1 078) 
trialperiod(ewn,14 108 1,141082) 
trial  period(ewn, 141082, 141083) 
trial  period(ewn,  14 1083, 341084) 
trialperiod(ewn,  1 4 1 084, 1 4 1 085 ) 
trialperiod(ewn,  1 4 1 088, 1 4 1 089; 
trialperiod(ewn,  141089, 14 1090) 
trial  period(ewn,  1 4 1 090, 141091) 
trial  period(ewn,  1 4 1 09 1 , 1 4 1 092) 
trialperiod(ewn,  1 4 1 095, 14 1096) 
trial  period(e  wn,  1 4 1 096, 1 4 1 097 ; 
trialperiod(ewn,14 1097, 14 1098) 
trialperiod(ewn,14 1098, 14 1099; 
trialperiod(ewn,141 102,141 103) 
trial  periodlewn, 141 103,141 104) 
trialperiod(ewn,  1 4 1 1 04, 1 4 1 3  05) 
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trialperiod(ewn,141 105,141 106) 
trialperiod(ewn,  1 41 109,141 110) 
trialperiod(ewn,141 1 10,141 1 11) 
trial  period(ewn,  1 41111,141112) 
trialperiod(ewn,  141112,141113) 
trialperiod(ewn,141 1 16,141 1 17) 
trialperiod(ewn,141 117,141 118) 
trialpcriod(e  wn,  1 4 1 1 1 8, 1 4 1 1 1 9) 
trialperiod(ewn,  141119, 141 120) 
trialperiod(ewn,141 123,141 124) 
trial  period(ewn,  1411 24, 1411 25) 
trialperiod(ewn,  141 125,141 126) 
trialperiod(e  w  n, 1411 26, 1411 27) 
trialperiod(ewn,  141131,141132) 
trialperiod(ewn,  141132,141133) 
trialperiod(ewn,  141 133,141 134) 
trialperiod(ewn,141 137,141 138) 
trialperiod(ewn,  141138.141139) 
trialperiod(ewn,  1411 39, 1411 40) 
trial  period(ewn,  14 1 140, 14 1 1 4 1 ) 
trialperiod(ewn,141144,141 145) 
trialperiod(ewn,14l  145,141 146) 
trial  period(e  wn,  141 146, 141 147) 
trialperiod(ewn,  141 147,141 148) 
trialperiod(ewn,  141151,141152) 
trial  period(ewn,l  41 152,141 153) 
trialperiod(ewn,  141 153,141 154) 
trial  period  (ewn,  141 154,141 155) 
trialperiod(ewn,141 158,141 159) 
trialperiod(ewn,  141 159,141 160) 
trialperiod(e  wn,  1411 60, 141161) 
trialperiod(ewn,  141161,141162) 
trialperiod(ewn,141 165,141 166) 
trialperiod(ewn,  1 4 1 1 66, 1 4 1 1 67) 
trialperiod(ewn,  1 4 1 167,141 168) 

trialperiod(e  wn ,  1 4 1 1 7  2 , 1 4 1 1 7  3 ) 

trial  period(ewn,  141 173,141 174) 
trialperiod(ewn,  1411 74, 1411 75) 
trial  peiiod(ewn,l  41 175,141 176) 
trial  peri  od(ewn,l  41 179,141 180) 
trialperiod(ewn,  1 4 1 1 80, 1 4 1 1 8 1 ) 
trialperiod(ewn, 141 181,141 182) 
trialperiod(e  wn,  1 4 1 182,141 183) 
trialperiod(ewn,141 186,141 187) 
trialperiod(ewn,141 187,141 188) 
trialperiod(ewn, 141 188,141189) 
trialperiod(ewn,l  41 189,141190) 
trial  peri  od(ewn,l  41 193,141 194; 
tri  al  peri  od(ewn,141 194,141 195) 
trialperiod(ewn,141 195,141 196) 
trialperiodfewn,141 196,141 197; 
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trialperiod(e  wn , 1 4 1 200, 1 4 1 20 1 ) 
trialperiod(e  wn,  1 4 1 20 1 , 1 4 1 202) 
trialperiod(ewn, 141202, 141203) 
trialperiod(ewn, 141203, 141204) 
trialperiodCewn,  141 207 ,141208) 
trialperiodCewn,  1 4 1 208, 1 4 1 209) 
trialperiodCewn,  14 1209,14 1210) 
trialperiodCewn,  14 12 10, 141211) 
trialperiodCewn,  141214, 141215) 
trialperiodCewn,  1 4 1 2 1 5, 1 4 1 2 1 6) 
trialperiod(ewn,141216, 141217) 
trialperiodCewn, 141217, 141218) 
trialperiodCewn,  141 22 1,141 222) 
trialperiodCewn,  1 4 1 222, 141223) 
trialperiodCewn , 141223, 141224) 
trialperiodCewn,  1 4 1 224, 141 225) 
trialperiodCewn,  141229, 141230) 
trialperiodCewn,  1 4 1 230, 141231) 
trialperiodCewn,  14 123 1,141232) 
trialperiod(ewn,141235, 141236) 
trialperiodCewn,  141236, 141237) 
trialperiod(ewn,141237,141238) 
trialperiod(ewn,141238, 141239) 
trialperiod(ewn,141242,141243) 
trial  period(ewn,141243, 141244) 
trialperiodCewn,  1 4 1 244, 1 4 1 245) 
trial  period(ewn,  14 1 245, 1 4 1 246) 
trialperiod(ewn,  1 4 1 249, 1 4 1 250) 
trial  period(ewn,  14 1 250, 141251) 
trial  period(ewn,  14125 1,1 4 1252) 
trialperiod(ewn,  1 4 1 252, 141253) 
trialperiodle  wn,  1 4 1 256, 1 4 1 257 ) 
trial  period(ewn,  141257, 141258) 
trialperiod(ewn,  141258, 141259) 
trialperiod(ewn,  141259, 141 260) 
trial  period(e  wn,  1 4 1 263 , 1 4 1 264) 
trialperiod(ewn,  1 4 1 264, 1 4 1 265 ) 
trial  peri  od(ewn,  141265, 141 266) 
trialperiod(ewn,  1 4 1 266, 1 4 1 267 ) 
trial  period(e  wn ,  1 4 1 27 1 , 1 4 1 27 2 ) 
trialperiod(ewn,  141272, 141 273) 
trial  period(ewn,  141273, 14 1274) 
trialperiod(ewn,14 1277, 14 1278) 
trial  peri  od(e  wn,  1 4 1 27  8, 1 4 1 279) 
trialperiod(ewn,  1 4 1 279, 1 4 1 280) 
trialperiod(ewn,141280,141281) 
trial  period(ewn,  1 4 1 284, 1 4 1 285) 
trialperiod(ewn,14 1285, 14 1286) 
trialperiodCewn,  1 4 1 286, 1 4 1 287) 
trialperiod(ewn,14 1287,141288) 
trialperiodCewn,  14 129 1,14 1292) 


trialperiod(ewn,  1 4 1 292, 1 4 1 293) 
trialperiod(ewn,  1 4 1 293, 1 4 1 294) 
trialperiod(ewn,  1 4 1 294, 141295) 
trialperiod(ew  n,  141 300, 141301) 
trialperiod(e  wn,  1 4 1 30 1 , 1 4 1 302) 
trialperiod(ewn,  141 305 ,141 306) 
trialperiod(ewn, 141 306, 141307) 
trialperiod(ewn,  1 4 1 307, 1 4 1 308) 
trialperiod(ewn,  14 1 308 ,141 309) 
trialperiod(ewn,  14131 2, 14131 3) 
trialperiod(ewn,  141313,141314) 
trialperiod(ewn,141319, 141320) 
trialperiod(e  wn,  1 4 1 320, 141321) 
trialperiod(e  wn,  141321, 141322) 
trialperiod(ewn, 141322, 141323) 
trialperiod(ewn,  1 4 1 326, 1 4 1 327) 
trialperiod(ewn,141327,141328) 
trial  period(ewn,  1 4 1 328, 14 1 329) 
trialperiod(ewn,  1 4 1 329, 141330) 
trialperiod(ewn,  1 4 1 3 3 3 , 1 4 1 3 34 ) 
trialperiod(ewn,  141334, 141335) 
trialperiod(ewn,  141 335, 14 1 336) 
trialperiod(ewn,  141336,141337) 
trialperiod(ewn,  1 4 1 340, 141341) 
trial  peri  od(e  wn,  1 4 1 34 1 , 1 4 1 342) 
tridlperiod(en,  1 409 13,1 40924) 
trialperiod(en,  140920, 14093 1 ) 
trialperiod(en, 140955, 140966) 
trial  period(en, 140962, 140973) 
trial  peri  od(en ,  1 40990, 141001) 
trialperiod(en,  1 4 1 0 1 1 , 1 4 1 022) 
trialperiod(en,  14 1 0 1 8, 1 4 1 029) 
trial  peri  od(en,  1 4 1 039, 1 4 1 050) 
trialperiod(en  ,141 046, 141057) 
trialperiod(en,  1 4 1 053, 14 1 064) 
trialperiod(en,  1 4 1 060, 141071) 
trialperiod(en,  1 4 1 067, 1 41078) 
trialperiod(en,14 1074, 141085) 
trialperiod(en ,  1 4 1 08 1 , 1 4 1 092) 
trialperiod(en,  141088, 141099) 
tria]period(en,14109 5,141 106) 
trial  period(en,  141 102,141 113) 
trialperiod(en,  141 109,141 120) 
trialperiod(en,141 1 16,141 127) 
trialperiod(en, 141 137,141 148) 
trialperiod(en,141 144,141 155) 
trialperiod(en.  141 151,141 162) 
trialperiod(en,141 172,141 183) 
trialperiod(en,  141 179,141 190) 
trialperiod(en,  1 4 1 186,141 197) 
trialperiod(en,141 193,141204) 


trialperiod(en,  141200,14121 1) 
trialperiod(en,  1 4 1 207 , 1 4 1 2 1 8 ) 
trialperiod(en,  141214, 141225) 
trialperiod(en,  1 41 235, 1 41246) 
trialperiod(cn, 141242, 141253) 
trialperiod(en, 1 4 1 249, 1 4 1 260) 
trialperiod(en,  1 4 1 256, 141267) 
trialperiod(en,  141277, 141288) 
trialpcriod(en, 141284, 141295) 
trialperiod(en,  141319, 141330) 
trialperiod(en, 141326, 141337) 
trialperiod(ewc,  14089 3 , 1 40896) 
trialperiod(e  wc,  1 40899, 1 40902 ) 
trialperiod(ewc, 1 40900, 140903) 
trialperiod(ewc,  140907, 1409 10) 
trialperiod(ewc,  1409 1 3, 1409 1 6) 
trialperiod(ewc , 1 409 1 4, 1 409 1 7 ) 
trialperiod(ewc,  140920, 140923) 
trialperiod(ewc,  14092 1 ,140924) 
trialperiod(ewc,  1 40927 , 1 40930) 
trialperiod(ewc,  140928, 14093 1 ) 
trialperiod  (ewe ,  1 40935 ,140938) 
trial  period(ewc,  14094 1 , 1 40944) 
trial  period(ewc,  140942, 140945) 
trialperiod(ewc,  140955, 140958) 
trial  period(ewc,  140956, 1 40959) 
trialperiod(ewc,  140962, 140965) 
trialperiod(ewc,  140963,140966) 
trialperiod(ewc,  140969, 140972) 
trial  period(ewc,  1 40970, 140973) 
trialperiod(ewc,  140990, 140993) 
trial  period(ewc,  14099 1 , 1 40994) 
trialperiod(ewc,  1 40997, 1 4 1 000) 
trial  period(ewc,  1 40998, 141001) 
trial  period(ewc,  141005, 141008) 
trialperiod(ewc,14101 1,141014) 
trial  period(ewc,  141012, 14101 5) 
trialperiod(ewc,  1 4 1 0 1 8, 1 4 1 02 1 ) 
trialperiod(ewc,  141019,141 022) 
trialperiod(ewc, 141025, 141028) 
trialperiod(ewc,141026,141029) 
trial  peri od(ewc,  1 4 1 033, 1 4 1 036) 
trialperiod(ewc,141039,141042) 
trialperiod(ewc,  1 4 1 040, 1 4 1 043 ) 
trial  period(ewc,  1 4 1 046, 1 4 1 049) 
trialperiod  (ewe,  1 4 1 047, 1 4 1 050) 
trialperiod(ewc,  1 4 1 053, 1 4 1 056) 
trial  period(ewc,  14 1054, 14 1057) 
trial  period(ewc,  1 4 1 060, 1 4 1 063) 
trialperiod(ewc,  1 4 1 06 1 , 1 4 1 064) 
trialperiod(ewc,  141067, 141070) 


trialperiod(e  wc,  1 4 1 068, 1 4 1 07 1 ) 
trial  period  (ewe,  1 4 1 074, 1 4 1 077) 
trialperiod(ewc,  141075, 14 1078) 
trialperiod(ewc,  14 108 1,14 1084) 
trial  period(ewc,  1 4 1 082, 14 1 085) 
trialperiod(ewc,  141088, 141091) 
trial  period(ewc,  141089,141092) 
trial  period(ewc,  141095, 141098) 
trialperiod(e  wc,  141 096, 141 099) 
trial  period(ewc,  1 4 1 102, 1 4 1 1 05) 
trial  period(ewc,  141 103,141106) 
trialperiod(ewc,  141 109,141 1 12) 
trialperiod(ewc,141 1 10,141 113) 
trialperiod(ewc,  141116,141119) 
trialperiod(ewc,  141117, 1411 20) 
trialperiod(ewc,  141 123,141 126) 
trialperiod(ewc,141 124,141 127) 
trial  period(ewc,  141131,141134) 
trialperiod(e  wc,  1 4 1 1 37, 1 4 1 1 40) 
trialperiod(ewc,  141 138,141 141) 
trialperiod(ewc,141 144,141 147) 
trialperiod(ewc,141 145,141 148) 
trialperiod(ewc,141 151,141 154) 
trialperiod(ewc,141 152,141 155) 
trialperiod(ewc,  141 158,141 161) 
trialperiod(ewc,141 159,141 162) 
trialperiod(ewc,141 165,141 168) 
trialperiod(ewc,141 172,141 175) 
trialperiod(ewc,141 173,141 176) 
tria]period(ewc,  141 179,141 182) 
trialperiod(ewc,141 180,141 183) 
trialperiod(ewc, 141 186,141 189) 
trial  period(ewc,  141 187,141 190) 
triaIperiod(ewc,141 193,141 196) 
trialperiod(ewc,141 194,141 197) 
trial  period  (ewe,  1 4 1 200, 1 4 1 203 ) 
trialperiod(e  wc,  1 4 1 20 1 , 1 4 1 204) 
trialperiod(ewc,141207,141210) 
trialperiod(ewc,141208,14121 1) 
trialperiodfewc,  141214,141 217) 
trialperiod(ewc,141215,141218) 
trialperiod(ewc,  14 122 1,14 1224; 
trialperiod(ewc,141222,141225) 
trialpenod(ewc,141229,141232) 
trialperiod(ewc,141235,141238) 
trialperiod(ewc,  1 4 1 236, 1 4 1 239) 
trialperiod(ewc,  1 4 1 242, 14 1 245) 
tria]penod(ewc,141243,14124b) 
trial  periodfewc,  1 4 1 249, 1 4 1 252) 
trial  period  (ewe,  141250, 141 253) 
trial  period(ewc,  141256, 141259) 


trial  period(ewc,  1 4 1 257, 1 4 1 260) 
trialperiod(ewc,  141263, 141266) 
trial  period(ewc  ,141 264, 1 4 1 267 ) 
trialperiod(ewc,  14127 1 ,141274) 
trialperiod(e  wc,  1 4 1 277 , 1 4 1 280) 
trialperiod(ewc,  1 4 1 27 8 , 1 4 1 28 1 ) 
trial  period  (ewe,  141 284, 141287) 
trial  period(ewc,  1 4 1 285, 14 1 288) 
trial  period(ewc,  141 29 1,141 294) 
trial  period(ewc,  14 1 292, 141 295) 
trial  period(e  wc,  1 4 1 305 ,141 308 ) 
trial  peri  od(ewc,  1 4 1 306, 1 4 1 309) 
trialperiod(ewc,  141319,141 322) 
trialperiod(ewc,  1 4 1 320, 141323) 
trial  period(ewc,  14 1 326, 14 1 329) 
trialperiod(e  wc,  1 4 1 327, 1 4 1 330) 
trialperiod(ewc,141333,141336) 
trialperiod(ewc,14 1334, 141 337) 
trialperiod(ewm,  140893, 140896) 
trialperiod(ewm,  1 40899, 1 40902) 
trialperiod(ewm,  1 40900, 1 40903 ) 
tri  al  peri  od  ( ewm ,  1 40907 , 1 409 1 0 ) 
trialperiod(ewm,  1 409 13,1 409 16) 
trialperiod(e  wm,  1 409 1 4, 1 409 1 7 ) 
trialperiod(ewm, 140920, 140923) 
trialperiod(ewm,  1 4092 1 , 1 40924) 
trial  penod(ewm,  140927, 140930) 
tn  alperiod(ewm, 140928, 140931 ) 
trial  penod(ewm, 140935, 140938] 
trialperiod(ewm,  1 4094 1 , 1 40944 ) 
tnalperiod(ewm,  1 40942, 1 40945 ) 
tnalpenod(ewm,  140955, 140958) 
trial  period(e  wm,  1 40956, 1 40959  > 
trial  penod(e  wm,  1 40962, 1 40965 ) 
trialperiod(ewm,  1 40963, 1 40966) 
tnalperiodiewm,  140969, 140972) 
trialperiodlewm,  140970, 140973) 
trialperiod(e  wm,  1 40990, 1 40993 ) 
trialpenod(e  wm,  1 4099 1 , 1 40994 ) 
trialperiod(ewm,  140997, 14 1 000 ) 
trialperiod(ewm,  140998, 141001 ) 
trialpenod(ewm,  1 4 1 005, 14 1 008) 
tnalperiodiewm,  14 101 1,141014) 
tnalpenod(ewm,141012,141015) 
trialpenod(ewm,141018,141021) 
trialperiod(ewm,141019,141022) 
trialperiodle  wm,  1 4 1 025, 1 4 1 028; 
trialperiod(ewm,141026, 141029) 
tria.  eriodlewm, 141033, 141036) 
tnalperiod(ewm,141039,141042) 
tnalperiodiewm,  1 4 1 040, 1 4 1 043 ) 


trialperiodiewm,  14 1046, 141049) 
trialperiod(ewm,  141047, 141050) 
tria]period(e  wm,  1 4 1 053, 1 4 1 056) 
trial  period(ewm,  1 4 1 054, 1 4 1 057) 
trialperiodiewm,  1 4 1 060, 1 4 1 063 ) 
trial  period(e  wm,  1 4 1 06 1 , 1 4 1 064) 
trial  period(e  wm,  141067, 141 070) 
trial  period(ewm,  1 4 1 068, 14 1 07 1 ) 
trial  period(ewm,  141074, 141077) 
trialperiodiewm,  1 4 1 075, 1 4 1 078) 
trialperiodiewm,  1 4 1 08 1 , 1 4 1 084) 
trialperiod(ewm,141082, 141085) 
trial  oeriod(e  wm,  141088,141091) 
trialperiod(ewm,  14 1089, 141092) 
trialperiodiewm,  14 1095, 141098) 
trial  period(ewm ,  1 4 1 096, 1 4 1 099 ) 
trial  period(ewm,141 102,141 105) 
trialperiod(ewm,141 103,141 106) 
trialperiod(ewm,141 109,141 112) 
trialperiod(ewm,141 1 10,141 113) 
trialperiod(ewm,141 1 16,141 1 19) 
trialperiod(ewm,141 1 17,141 120) 
trialperiod(ewm,141 123,141 126) 
trialperiod(ewm, 141 124,141 127) 
trialperiod(ewm,141 131,141 134) 
trialperiod(ewm,141 137,141 140) 
trialperiod(ewm,  141 138,141 141) 
trialperiod(ewm, 141 144,141 147) 
trialperiod(ewm,141 145,141 148) 
trialperiod(ewm,141 151,141 154) 
trialperiod(ewm, 141 152,141 155) 
trial  period(ewm,  141 158,141 161) 
trialperiod(ewm,141 159,141 162) 
trialperiod(e  wm,  1 4 1 165,141 168) 
trialperiodiewm.  141 172,141 175) 
trialperiod(ewm,141 173,141 176) 
trialperiod(ewm,141 179,141 182) 
tnalperiod(ewm,141 180,141 183) 
trialpenod(ewm,141 186,141 189) 
trialperiod(ewm,141 187,141 190) 
trialperiod(ewm,141 193,141 196) 
trial  periodiewm.l  41 194,141 197) 
trialperiod(ewm,  1 4 1 200, 1 4 1 203 ) 
trial  periodic  wm,  1 4 1 20 1 , 1 4 1 204 , 
trialperiod(ewm,141207,141210) 
trialperiodiewm,  141208, 14121 1 ) 
trial  penodlewm.  141214,141217) 
trialperiodiewm.  14 12 15,14121 8) 
tnalpenod(ewm,l  41 22 1 ,141224) 
trialperiodiewm,!  4 1222, 141 225) 
trialperiodiewm.  14 1229.1 4 1232) 


trialperiod(ewm,  141235, 141238) 
trialperiod(ewm,  141236, 141239) 
trialperiod(e  wm,  1 4 1 242, 141245) 
trialperiod(ewm,  14 1 243, 1 4 1 246) 
trialperiod(ewm,141249,141252) 
triaiperiod(ewm,  1 4 1 250, 141253) 
trialperiod(e  wm,  1 4 1 256, 1 4 1 259) 
trial  period(ewm, 1 4 1 257 , 1 4 1 260) 
trialperiod(ewm,  1 4 1 263 , 1 4 1 266) 
trialperiod(ewm,  14 1264, 141267) 
trial  period(ewm,  1 4 1 27 1 , 1 4 1 274) 
trial  period(ewm,  1 4 1 277,141280) 
trial  period(ewm,  1 4 1 278, 1 41 28 1 ) 
trialperiod(ewm,  141284, 141287) 
trialperiod(ewm,  1 4 1 285, 1 4 1 288) 
trialperiod(ewm,  141291, 141294) 
trialperiod(ewm,  1 4 1 292, 141295) 
trialperiod(e  wm,  1 4 1 305 , 1 4 1 308) 
trial  period(ewm,141 306,141 309) 
trialperiod(ewm,  14 1 319,141 322) 
trialperiod(e  wm,  1 4 1 320, 1 4 1 323) 
trialperiod(ewm,  1 4 1 326, 141329) 
trialpenod(ewm,  1 4 1 327, 141330) 
trialperiod(ewm,141333,141336) 
trialperiod(ewm,  141334,141337) 
trialperiod(ec,  1 40899, 1 40903) 
trialperiodlec,  1 409 1 3, 1 409  3  7) 
trialperiod(ec,  140920, 1 40924) 
trialperiod(ec,  1 40927, 1 4093 1 ) 
tria]period(ec,  14094 1,140945) 
trialperiod(ec,  140955, 140959) 
trialperiod(ec,  140962, 140966) 
trialpenod(ec,  1 40969, 1 40973 ) 
trialperiod(ec,  1 40990, 140994) 
trialpenod(ec,  140997, 14 1001  > 
trialpenod(ec,  14101 1,141015) 
trialpenod(ec,141018,141022) 
trialperiodCec,  1 4 1 025, 1 4 1 029) 
triaJpenod(ec,141039,141043) 
tn  alperiod(ec,  1 4 1 046, 1 4 1 050) 
trialpenod(ec,  141053, 141057 ) 
trialperiod(ec,141060,141064) 
trialpenod(ec,  141067, 141071) 
tnalperiod(ec,  141074, 141078) 
tnalpenod(ec,  141081, 141085) 
trialperiod(ec,14 1088, 141092) 
trialperiod(ec,l  4 1095,141099) 
trial  pericxlfec,  141 102,141 106) 
tnalperiod(ec,141 109,141 1 13) 
trialperiodlec,  141 116,141120) 
trialperiod(ec,141 123,141 127) 


triaJperiod(ec,  141 137,141141) 
trialperiod(ec,  141 144,141 148) 
trialperiod(ec,  1 4 1 15 1 , 1 41 1 55) 
trialperiod(ec,141 158,141 162) 
trialperiod(ec,141 172,141 176) 
trialperiod(ec,  141179,141183) 
trialperiod(ec,  141 186,141 190) 
trialperiod(ec,141 193,141 197) 
trialperiod(ec,  1 4 1 200, 1 4 1 204) 
trialperiod(ec ,  1 4 1 207 , 1 4 1 2 1 1 ) 
trialperiod(ec,  14 1 2 1 4, 14 1 2 1 8) 
trialperiod(ec,  1 4 1 22 1 , 1 4 1 225) 
trialperiod(ec,  141235,141239) 
trialperiod(ec,  1 4 1 242, 1 4 1 246) 
trialperiod(ec,  1 4 1 249, 1 4 1 253) 
trialperiod(ec,  1 4 1 256, 1 4 1 260) 
trialperiod(ec,  1 4 1 263 , 1 4 1 267 ) 
trialperiod(ec,  141277, 141281) 
trialperiod(ec,  1 4 1 284, 1 4 1 2 8 8 ) 
trialperiod(ec,  1 4 1 29 1 , 1 4 1 295 ) 
trialperiod(ec,  1 4 1 305 , 141309) 
trialperiod(ec,141319,141323) 
trialperiod(ec,  141326,141330) 
trialperiod(ec,  141333, 141337) 


readyeven  tdate(vp47,tr  1  a,[  1  ,sep,  1 986] ,[  30,sep,  1986]) 
readyeventdate(vp48,trla,[l,aug,1986),[31,aug,1986]) 
readyeventdate(vp9,trlc,[l,jul,1986],[31,jul,1986]) 
readyeventdate(vp50,tr  1  b,[l,jun,  1986], [30, jun,  1986]) 
readyeventdate(vp9,tr  1  b,[  1  .may,  1986],[3 1  ,may,1986]) 
readyeventdate(vp50,tr  1  a,[  1  ,apr,  1 986], [  30,apr,  1986]) 
readyeventdate(vp9,trla,[l,  mar,  1986],  [31,  mar,  1986]) 
readyeventdate(vp40,  trlb,[l,feb,  1986],  [28,  feb,  1986]) 
readyeventdate(vp46,trlb,  [l.jan,  1986],  [31, jan,  1986]) 
readyeventdate(vp40,trla,[l,  dec,  1985],[31,  dec,  1985]) 
readyeventdate(vp46,trla,[  16, oct, 1985], [30,nov, 1985]) 
readyeventdate(vp46,trla,[16,cx:t,1985],[30,nov,1985]) 
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APPENDIX  C  -  EXAMPLE  FINAL  SCHEDULE  FILE 


The  following  is  an  example  of  the  1986  schedule  produced  using  this  program  and 
what  would  be  found  in  the  file  SCHEDULE. pro. 


vp46  ntpi 

1 

oct 

1985 

2 

oct 

1985 

vp47  mrci 

8 

oct 

1985 

11 

oct 

1985 

vp46  ready_alert 

16 

oct 

1985 

30 

nov 

1985 

vp40  pre_ntpi 

17 

oct 

1985 

18 

oct 

1985 

vp48  command 

21 

oct 

1985 

25 

oct 

1985 

vp40  ntpi 

31 

oct 

1985 

1 

nov 

1985 

vp47  command 

18 

nov 

1985 

22 

nov 

1985 

vp40  ready_alert 

1 

dec 

1985 

31 

dec 

1985 

vp46  natops 

9 

dec 

1985 

20 

dec 

1985 

vpl9  command 

16 

dec 

1985 

20 

dec 

1985 

vp46  ready_alert 

1 

jan 

1986 

31 

jan 

1986 

vp40  natops 

6 

jan 

1986 

17 

jan 

1986 

vp9  prejntpi 

21 

jan 

1986 

22 

jan 

1986 

vp40  ready_alert 

1 

feb 

1986 

28 

feb 

1986 

vp9  ntpi 

10 

feb 

1986 

11 

feb 

1986 

vp50  pre  ntpi 

19 

feb 

1986 

20 

feb 

1986 

vp9  ready_alert 

1 

mar 

1986 

31 

mar 

1986 

vp50  ntpi 

12 

mar 

1986 

13 

mar 

1986 

vp46  pre_mrci 

24 

mar 

1986 

27 

mar 

1986 

vp50  ready_alert 

1 

apr 

1986 

30 

apr 

1986 

vp46  mrci 

7 

apr 

1986 

10 

apr 

1986 

vp40  pre_mrci 

8 

apr 

1986 

1 

may 

1986 

vp9  ready_alert 

1 

may 

1986 

31 

may 

1986 

vp50  natops 

12 

may 

1986 

23 

may 

1986 

vp40  mrci 

12 

may 

1986 

15 

may 

1986 

vp46  command 

19 

may 

1986 

23 

may 

1986 

vp50  ready_alert 

1 

jun 

1986 

30 

jun 

1986 

vp40  command 

23 

jun 

1986 

27 

jun 

1986 

vp47  pre_ntpi 

30 

jun 

1986 

1 

jul 

1986 

vp9  ready_alen 

1 

jul 

1986 

31 

jul 

1986 

vp48  natops 

7 

jul 

1986 

18 

jul 

1986 

vp47  ntpi 

14 

jul 

1986 

15 

jul 

1986 

vp47  natops 

21 

jul 

1986 

1 

aug 

1986 

vp48  ready_alert 

1 

aug 

1986 

31 

aug 

1986 

vp9  pre_mrci 

5 

aug 

1986 

8 

aug 

1986 

vp9  mrci 

18 

aug 

1986 

21 

aug 

1986 

vp47  ready_a!ert 

1 

sep 

1986 

30 

sep 

1986 

vp50  pre_mrci 

2 

sep 

1986 

5 

sep 

1986 

vpl9  natops 

8 

sep 

1986 

19 

sep 

1986 

vp9  command 

29 

sep 

1986 

3 

oct 

1986 

vp50  mrci 

30 

sep 

1986 

3 

oct 

1986 

vp50  mrci 

30 

sep 

1986 

3 

oct 

1986 
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